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OBJECTIVES 


1.  Determine  the  feasibility  of  automating  the  tool  interchange  portion 
of  the  tasks  performed  by  the  Work  Systems  Package  (WSP)  by  conducting  a  lab¬ 
oratory  demonstration. 

2.  In  particular,  demonstrate  that  automatic  tool  interchange  can  be 
performed  repeatedly  without  malfunction  when  the  WSP  is  equipped  with  fixed- 
rate  position  control  (hydraulic  solenoid  valves). 


RESULTS 


1 .  The  feasibility  of  automatic  tool  interchange  with  the  WSP  was 
demonstrated  in  the  laboratory. 

2.  Equipped  with  fixed-rate  position  oontrol,  the  WSP  performed  auto¬ 
matic  tool  interchange  repeatedly  without  malfunction. 


RECOMMENDATIONS 

1.  Incorporate  automation  into  the  next  work  system  that  is  built. 

2.  Ultimately,  conduct  in-water  tests  of  the  automated  work  system  to 
verify  its  feasibility. 
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INTRODUCTION 


BACKGROUND  -  THE  WORK  SYSTEMS  PACKAGE 

The  Work  Systems  Package  (WSP)  program,  part  of  the  Deep  Ocean  Technology 
(DOT)  project,  was  initiated  in  February  1972  by  NOSC  in  conjunction  with  the 
Battelle  Memorial  Institute  (Columbus  OH) ,  the  Naval  Civil  Engineering  Labora¬ 
tory  (Port  Hueneme  CA),  and  the  David  Taylor  Naval  Ship  Research  and  Develop¬ 
ment  Center/Annapolis  (Annapolis  MD) ,  under  the  direction  of  the  Naval  Sea 
Systems  Command. 

The  WSP  is  a  5-ton,  neutrally  buoyant  machine  assembly  designed  for 
ocean-floor  salvage,  recovery,  installation,  and  repair  operations  at  depths 
to  20  000  feet.  It  has  restraining  and  manipulator  arms  and  hands,  specially 
designed  tools  and  a  customized  tool  box,  a  video  monitoring  system,  required 
support  equipment,  and  a  self-contained  power  source.  It  is  intended  tc  pro¬ 
vide  a  heavy-duty  underwater  work  capability  for  the  Navy’s  Cable-Controlled 
Underwater  Recovery  Vehicle,  CURV  III,  or  Remote  Unmanned  Work  System  (RUWS), 
both  cable-controlled  submersible  vehicles,  and  the  manned  vehicles  Alvin, 

Sea  Cliff,  and  Turtle  (ref  1).  It  can  also  be  positioned  and  controlled  with¬ 
out  a  submersible,  from  a  surface  support  ship  or  by  divers. 

The  WSP  performs  its  work  functions  without  having  to  resurface  for  tool 
interchange.  The  two  outer  restraining  (grabber)  arms  attach  to  the  work 
piece  to  maintain  a  stable  physical  orientation  with  the  work  object.  The 
manipulator,  located  between  the  grabbers,  is  a  seven-function  articulated  arm 
that  can  select,  interchange,  and  operate  a  variety  of  hydraulically  powered, 
explosively  actuated  tools.  With  the  tools  it  can  cut  cable  or  synthetic  ' 
line,  torque  nuts,  jack,  pry,  wire-brush,  saw,  grind,  drill,  tap,  chip,  and 


1.  Design  for  Remote  Work  in  the  Deep  Ocean,  by  KL  Wernli  (NOSC),  paper  pub¬ 
lished  in  ASME  publication  78-WA/0CE-4,  contributed  by  the  Ocean  Engineering 
Division  of  the  American  Society  of  Mechanical  Engineers  for  presentation  at 
the  ASME  Winter  Annual  Meeting,  San  Francisco  CA,  10-15  December  1978. 
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drive  studs.  The  integral  tool  box  has  "pigeonholes"  and  brush- type  retainers 
for  the  various  tools  and  external  clip  mounts  for  the  tool  bits.  The  primary 
power  source  is  a  60  V  dc  lead-acid  battery  bank,  which  drives  a  1-gpm  2000- 
psi  motor-pump  unit  for  operating  the  manipulator  and  a  second,  high-flow, 
2.5-gpm  3000-psi  motor-pump  unit  for  powering  the  tools.  High-pressure  oil 
for  tool  actuation  is  supplied  through  two  external  hydraulic  hoses  to  quick 
disconnects  at  the  manipulator  hand.  The  operator  controls  the  WSP  functions 
from  the  host  vehicle,  through  a  multiplexed  telemetry  circuit. 


SCOPE  OF  THIS  REPORT 

The  basic  WSP  components  used  in  the  automatic  tool  interchange  study 
reported  here  were  developed  in  the  course  of  the  WSP  program  and  have  been 
employed  continuously  since  its  inception  in  1972  (ref  2,  3).  This  report 
focuses  on  ( 1 )  the  modifications  and  added  components  ( ref  4 )  necessary  to 
effect  automation  of  the  WSP  and  (2)  the  analyses  and  tests  used  to  demon¬ 
strate  the  feasibility  and  accuracy  of  the  automated  device. 


DESIGH  OF  THE  WSP  TOOL  INTERCHANGE 


Work  systems  previous  to  the  WSP  had  been  employed,  but  only  one  or  two 
tools  were  used  on  a  single  dive.  The  main  objective  of  the  original  WSP  was 
to  provide  a  large  number  of  tools  and  a  tool  interchange  capability.  This 
was  intended  to  allow  the  operator  to  perform  very  complex  missions  in  only 
one  dive. 


2.  Development  of  a  Design  Baseline  for  Remotely  Controlled  Underwater  Work 
Systems,  by  RL  Wernli  (NOSC)?  paper  published  in  IEEE  publication  78  CH  0134-7 
OEC,  Oceans  '78,  record  of  the  Fourth  Annual  Combined  Conference  sponsored  by 
the  Marine  Technological  Society  and  the  IEEE  Council  on  Ocean  Engineering, 
held  in  Washington  DC,  6-8  September  1978,  p  130. 

3.  NOSC  TR  214,  Evaluation  of  the  Design  and  Undersea  Work  Capability  of  the 
Work  Systems  Package,  by  WR  Bertsche,  KP  Logan,  AN  Pesch,  and  RL  Wernli 
(Principal  investigator),  1  April  1978. 

4.  NOSC  TN  360,  NOSC  Informal  Progress  Report,  Fiscal  Year  1977;  Work  Systems 
Package  (W8P)  Program,  by  RL  Wernli,  1  April  1978.  NOSC  TNs  are  informal  doc¬ 
uments  intended  chiefly  for  internal  use. 
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The  designers  were  concerned  that  the  operator  would  find  tool  inter¬ 
change  difficult.  Consequently  a  premise  of  the  early  design  process  was  that 
tool  interchange  had  to  be  conducted  in  the  best  viewing  area  —  with  some  di¬ 
minution  of  the  mission  operating  area  if  necessary.  Thus  the  large,  unwieldy 
tool  box  of  the  WSP  was  located  in  the  prime  operating  area.  Subsequent 
testing  and  analysis  demonstrated  that  tool  interchange  could  be  accomplished 
easily  by  means  of  this  approach. 


AUTOMATION  OF  THE  WSP 


In  this  study,  automation  of  the  tool  interchange  was  considered.  This 
approach  would  permit  the  tool  box  to  be  located  outside  the  prime  operating 
(viewing)  area.  There  were  two  concerns: 

1 .  There  were  no  known  automated  robotic  systems  that  worked  in  the  deep 
ocean. 

2.  The  known  high  precision  robotics  (NASA  and  assembly  line  automation) 
all  used  variable-rate  control  rather  than  fixed-rate  (solenoid) 
control . 

The  WSP  manipulator  is  factory  equipped  with  solenoid  valves  ( for  fixed-rate 
control).  Besides  being  loss  expensive,  fixed-rate  control  consumes  less 
power  —  an  important  consideration  since  the  WSP  operates  on  batteries  and  its 
power  consumption  limits  its  mission  time. 

Deep-diving  manned  subtnersibles  are  limited  in  both  the  power  available 
to  perform  work  operations  and  the  amount  of  life-support  power  available  to 
the  crew.  A  reduction  in  overall  operating  time  may  allow  a  mission  to  be 
completed  more  quickly  or  may  allow  more  work  to  be  done  per  dive.  For  a 
20  000-foot  dive,  the  effect  can  have  a  significant  impact  on  the  overall 
operation  of  the  mission.  For  a  tethered  submersible,  which  may  have  unlim¬ 
ited  power  available,  time  reductions  would  be  the  primary  factor.  During 
operations  under  adverse  weather  conditions,  the  weather  window  available  for 
operation  of  tethered  systems  may  be  very  small.  Thus  the  importance  of 
expedience  in  such  missions,  as  was  shown  dramatically  during  the  recovery  of 
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an  F-14  off  Scotland.*  In  any  case,  reduction  of  operator  fatigue  —  especial¬ 
ly  in  a  manned  boat,  where  comfort  is  not  the  general  rule  —  would  be 
advantageous . 


Although  automatic  tool  interchange  was  considered  too  risky  for  inmtedi- 
ate  implementation  in  an  operational  WSP,  a  task  was  begun  to  evaluate  the 
feasibility  of  automation.  A  programmer  to  effect  automatic  manipulator  con¬ 
trol  through  fixed-rate  control  valves  was  built  and  demonstrated  on  the  link¬ 
age  manipulator  (ref  4).  Since  the  results  of  this  preliminary  test  were 
encouraging,  it  was  decided  to  go  ahead  with  evaluating  the  feasibility  of 
automatic  tool  interchange  on  the  WSP.  This  paper  describes  that  effort. 


SYSTD4  DESCRIPTION 


FUNCTIONAL  DESCRIPTION 


Further  tool  interchange  technology  that  had  to  be  developed  before  the 
objective  could  be  achieved  included  (1)  modifying  the  WSP  manipulator  by 
adding  angular  position  sensors  to  the  manipulator  joints  that  were  to  be 
automatically  controlled,  (2)  providing  the  necessary  command  and  feedback 
interfaces  between  a  microprocessor  and  the  WSP  manipulator,  and  (3)  devising 
a  tool- interchange  computer  program  for  the  microprocessor.  Tests  then  could 
be  conducted  to  demonstrate  whether  automatic  tool  interchange  could  be 
performed  repeatedly  without  malfunction. 


•An  F-14,  equipped  with  a  Top  Secret  Phoenix  missile,  fell  into  2000  feet  of 
water  from  a  carrier  off  the  coast  of  Scotland  in  September  1976.  Soviet 
trawlers  observed  the  incident. 

Recovery  of  the  F-14  was  ordered  by  President  Ford,  but  the  search  and 
recovery  operations  took  more  than  a  month  because  of  adverse  weather  cpndi- 
tions,  typically  sea  state  4-5. 

When  the  F-14  was  recovered,  there  were  two  fishing  nets  wrapped  around 
it.  Although  it  was  too  big  for  the  nets,  the  Phoenix  missile  easily  could 
have  been  recovered  accidentally  by  fishermen. 


Figure  1  is  a  functional  block  diagram  of  the  WSP  demonstration  system. 


Figure  1 .  Automatic  tool  interchange  demonstration  system  functional 
block  diagram.  The  shaded  areas  represent  existing  WSP  components 
used  in  the  study,  the  cross-hatched  areas  represent  developmental 
components,  and  the  clear  areas  represent  existing  non-WSP  components. 
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SYSTEM  REQUIREMENTS 


Accuracy 

The  basic  accuracy  requirement  is  that  the  manipulator  be  able  to  hit 
within  the  alignment  guides  on  the  tool.  Table  1  shows  the  specifications 
derived  for  the  WSP  manipulator.  It  is  assumed  that  the  guides  are  designed 
for  a  maximum  error  of  0.25  inch  and  that  the  manipulator  contains  a  tool 
that  extends  1  foot  beyond  the  tip  of  the  hand. 


Option 

Manipulator 

Joint* 

Position  Error, 

inches 

Angular  Error, 

minutes 

Nominal 

Desirable 

Nominal 

Desirabl 

1— Same  error  for 

SL 

0.045 

0.020 

2.0 

1.0 

each  function 

SU 

0.045 

0.020 

2.0 

1.0 

(standard  deviation) 

E 

0.045 

0.020 

3.0 

1.5 

wu 

0.045 

0.020 

4.0 

2.0 

WL 

0.045 

0.020 

4.0 

2.0 

Overall 

0.100 

0.040 

2 — Same  encoder 

SL 

0.055 

0 . 0  4. 0 

2.5 

1.0 

for  all  functions 

SU 

0.055 

0.020 

2.5 

1.0 

E 

0.040 

0.015 

2.5 

1.0 

WU 

0.025 

0.010 

2.5 

1.0 

WL 

0.025 

0.010 

2.5 

1.0 

Overall 

0.100 

0.040 

*SL  ■  shoulder  left/right 
SO  *  shoulder  up/ down 
E  ”  elbow  up/down 
WO  ■  wrist  up/down 
WL  ■  wrist  left/right 


Table  1.  Allowable  position  error  of  each  manipulator  arm  functional  element 
and  derived  allowable  angular  error  of  each  associated  joint. 


Table  2  shows  the  angular  ranges  over  which  the  joints  with  sensors  can 
be  controlled  and  the  much  narrower  ranges  over  which  a  tool  can  be  controlled 
accurately. 


Manipulator 

Joint 

Control 

Range,® 

High-Accuracy 
Range, °* 

SU 

210 

45 

SL 

180 

120 

E 

270 

**45 

WU 

270 

**45 

WL 

180 

5 

*  Subject  to  change,  depending  on  tool  box  design  and  work  area  limits. 
**These  functions  could  be  less  inhibited  if  the  elbow  and  wrist  up/down 
potentiometers  were  not  coupled  to  the  shoulder  up/ down  movement. 


Table  2.  Ranges  of  control  and  high  accuracy. 


Temperature  Variation 

Accuracy  must  be  maintained  over  a  temperature  variation  of  0°  to  30 °C. 


Drift 


Accuracy  must  be  maintained  for  at  least  1-2  months.  If  accuracy  can  be 
maintained  for  1-2  years,  maintenance  requirements  would  be  substantially 
lower.  If  this  system  is  to  be  delivered  to  Navy  operating  forces,  the  1-2 
year  requirement  is  probably  necessary. 


Long-Term  Drift 

Accuracy  must  be  maintained  over  a  period  of  1  year.  Therefore,  elec¬ 
tronics  drift  must  be  controlled. 
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Shock  and  Vibration 


The  system  must  be  designed  to  withstand  a  standard  shipboard 
environment. 


Linearity 

Linearity  is  not  required  but  is  desirable  in  that  it  would  allow  more 
sophisticated  software  techniques. 


MANIPULATOR 


The  manipulator  (ref  1,  3),  manufactured  by  Programmed  and  Remote  (PaR) 
Systems  Corporation,  is  actuated  by  individual  hydraulic  motors  or  actuators 
that  articulate  shoulder  rotate  and  pivot,  elbow  pivot,  wrist  rotate  and 
pivot,  and  hand  open  and  close  motions.  Hydraulic  supply  pressure  to  each 
function  is  gated  on  or  off  by  electrical  coimnands  to  associated  built-in 
electrohydraulic  solenoid  valves. 


POSITION  ENCODING 


The  angle  between  the  elements  comprising  each  joint  of  the  manipulator 
(except  wrist  rotate  and  hand  open/close)  must  be  accurately  measured  and 
converted  to  a  voltage,  to  provide  the  feedback  necessary  for  computer-con- 
trolled  automation  of  the  tool  interchange  function. 


POSITION  FEEDBACK  TRANSDUCERS 


Angular  position  can  be  sensed  satisfactorily  by  either  an  absolute  or  an 
incremental  encoder.  The  incremental  encoder  is  easier  to  align  when  realign¬ 
ment  is  necessary,  but  it  has  to  be  reinitialized  after  power  loss. 


At  least  four  types  of  transducers  exist  for  this  purpose: 

Electromechanical  (potentiometers ) 

Optical 

Magnetic  (synchros) 

Mechanical  ( pin  contacts ) 

Potentiometers,  which  are  functionally  absolute,  may  be  wire-wound, 
ceramic-metallic  (cermet),  made  of  conductive  plastic,  etc.  Conductive 
plastic  potentiometers  were  selected  for  sensors  in  this  study  because  they 
are  inexpensive  and  easily  interfaced.  These  potentiometers,  used  success¬ 
fully  in  the  demonstration,  had  accuracies  of  1  part  in  10  000.  It  is  ques¬ 
tionable,  however,  whether  long-time  accuracy  better  than  1  part  in  2000  to 
4000  can  be  achieved  under  shock,  vibration,  and  variations  of  temperature  and 
power-supply  voltage.  This  degree  of  accuracy  should  be  acceptable  if  two  or 
more  potentiometers  can  be  stacked  on  the  same  shaft— one  for  coarse  measure¬ 
ment,  one  for  fine. 

Optical  encoders  can  be  either  absolute  or  incremental.  Off-the-shelf 
incremental  optical  encoders  are  available  with  accuracies  of  1  part  in 
20  000,  but  their  ability  to  withstand  pressure  has  not  been  established. 

Synchros  are  probably  the  best  type  of  position  sensors.  They  are  rela¬ 
tively  expensive ,  however ,  and  the  high-accuracy  versions  tend  to  be  signifi¬ 
cantly  larger  than  potentiometers. 

Pin-contact  sensors  do  not  have  sufficient  accuracy. 

MODIFICATION  DESCRIPTION 

To  provide  angular-position  feedback  signals  necessary  for  automatic 
operation,  manipulator  precision  potentiometers  were  attached  to  the  five 
applicable  joints  ( fig  2 ) .  The  devices  chosen  were  Bourns  Instrument  Company 
7/8- inch  diameter,  servomount,  10  kfi  conductive  plastic  potentiometers,  type 
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6534S-1-103.  They  were  externally  mounted  on  the  shoulder  azimuth,  shoulder 
pitch,  elbow  pitch,  wrist  pitch,  and  wrist  azimuth  functions  (fig  3)  by  means 
of  lightweight,  inexpensive  potentiometer  mounts.  For  simplicity  of  opera¬ 
tion,  wrist  rotation  and  hand  open/close  were  operated  by  direct  switch  con¬ 
trol,  without  feedback. 


CONTROL  UNIT 


The  control  unit  (showing  in  the  background,  fig  3)  consists  of  a  micro¬ 
processor,  a  relay  unit,  a  data  acquisition  unit,  and  associated  power  sup¬ 
plies.  The  microprocessor  is  programmed  as  follows: 

1.  To  respond  to  discrete  control  signals  from  the  hand-held  terminal 
function  buttons  by  causing  the  relay  unit  to  send  various  combinations  of 
electrical  commands  to  the  electrohydraulic  valve  solenoids,  driving  the 
manipulator  in  selected  motions. 

2.  To  stop  the  manipulator  motions  at  predetermined  positions  of  the 
manipulator  hand  as  determined  by  processing  feedback  voltages  received  via 
the  data  acquisition  unit  from  the  manipulator  joint  angular  sensors. 


TERMINAL 


The  hand-held  terminal,  manufactured  by  Termiflex  (fig  4),  was  adapted 
for  operator  programing  and  counand  input  to  the  control  unit  and  for  limited 
CRT  display  of  monitored  functions.  It  is  ideal  for  use  in  the  confined 
environment  of  a  manned  submersible.  The  operator  inserts  codified  instruc¬ 
tions  into  the  microprocessor  by  punching  appropriate  pushbuttons  on  the 
terminal's  miniature  keyboard. 
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Figure  2.  Closeup  of  one  of  five  potentiometer 
mounts  on  WSP  manipulator. 


LRO  465-2-78B 


Figure  3.  Overall  view  of  WSP  manipulator  with 
position  encoding  potentiometers  mounted 
appropriately  at  joints. 


LRO  467  2-78B 


Figure  4.  Termiflex  HT/2  hand-held  computer  terminal. 


TOOL  BOX  AMD  TOOLS 

The  tool  box  (fig  S)  and  tools  used  in  the  study  were  those  developed  for 
the  WSP  (ref  1). 


PROGRAMMER 


DSSXGM  REQUIRBCPrrS 

Precision  .control  of  a  solenoid-controlled  manipulator  is  a  significantly 
different  process  from  precision  control  of  a  servo-controlled  manipulator.  A 
servo  unit  can  be  slowed  down  as  it  approaches  the  desired  point.  A  solenoid 
unit,  however,  is  turned  off  abruptly  somewhat  before  reaching  the  desired 
point i  its  final  position  depends  on  how  far  it  moves  during  valve  closure. 
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LRO  4851 -8-77 

Figure  5.  Tool  box. 

The  algorithm  for  the  control  unit  is  as  follows: 

Determine  which  direction  to  move  manipulator. 

2.  Open  solenoid;  manipulator  starts  moving. 

3.  Monitor  position  of  manipulator. 

When  manipulator  reaches  critical  position,  turn  off  (close)  solenoids. 

5.  Effect  no  further  control  until  manipulator  stops  moving.  (There  may 
be  several  oscillations.) 

6.  Compare  final  position  of  manipulator  to  desired  position.  If  error  is 
significant,  try  again. 


Several  quantitative  data  values  are  associated  with  each  movement ,  as 


follows . 


Desired  Location 

The  desired  location  (preprogrammed)  is  selected  by  the  operator.  The 
coordinates  of  the  desired  location  are  initially  determined  by  moving  the  arm 
to  that  location  and  automatically  reading  the  coordinates  (potentiometer 
readings).  Known  coordinates  can  be  entered  by  the  operator. 


Tolerable  Krror 

The  maximum  error  is  based  on  the  following  model.  Ihe  manipulator  is 
moved  towards  the  tool  box  by  using  five  functions  in  a  sequence.  The  final 
operation  —  extend  —  consists  of  two  simultaneous  functions.  On  this  final 
extend  operation,  the  manipulator  must  contact  the  alignment  grooves  on  the 
tool  box.  When  the  manipulator  hand  reaches  the  tool  box,  the  maximum  correc¬ 
table  error  is  1/4  inch  in  any  direction,  within  a  plane  perpendicular  to  the 
extend  function  travel.  (This  is  discussed  further  in  appendix  c.) 


Solenoid  Turn-off  Point 

The  "coasting  time"  is  a  function  of  the  following: 

Individual  manipulator  function. 

Direction  of  travel.  The  length  of  ooast  is  greater  for  down  movement  than 
far  qp  movements. 

Weight  of  manipulator.  Usually  this  factor  is  limited  to  the  weight  of  the 
object  being  transported. 
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Hydraulic  pressure.  The  hydraulic  pressure  drops  when  more  than  one 
function  is  operated.  Consequently  it  is  difficult  to  estimate  the 
coasting  time  if  another  function  is  operated  and  the  one  which  will  turn 
off  first  is  not  known. 

Hater  depth.  Ambient  pressure  increases  with  depth.  This  may  affect  the 
coasting  time,  but  there  are  no  data  available. 


Required  Feedback  Sampling  Rata 

The  sampling  rate  is  determined  primarily  by  the  rate  at  which  the  arm 
moves.  The  worst-case  sample  rate  occurs  with  shoulder  movements  since  they 
move  the  fastest.  Shoulder  movements  cause  the  hand  to  move  through  an  arc  of 
about  7-foot  radius.  At  1.26  rpm,  the  tip  speed  is  thus  11  inches  per  second. 
The  shoulder  has  a  nominal  accuracy  of  0.05  inch  (see  appendix  C).  The  manip¬ 
ulator  travels  0.05  inch  in  about  4.5  ms.  Consequently,  the  decision  time 
should  be  less  than  450  |ts.  A  45-jis  decision  time  was  established  as  a  design 
goal  to  eliminate  this  parameter  as  a  problem.  The  final  design  required 
30  pa  between  decisions  (33  kHz  sample  rate). 


FUNCTIONAL  DESCRIPTION 

The  control  unit  contains  the  following  components: 

Data  acquisition  unit 
Microprocessor 
Hand-held  terminal 
Relays 
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Data  Acquisition  Unit 


Potentiometers  are  attached  to  the  manipulator.  A  precision  voltage 
source  (20  1  0.001  V)  provides  power  to  the  potentiometers  via  a  shielded 
twisted  pair.  Other  shielded  twisted  pairs  bring  the  wiper  voltage  and  the 
negative  reference  to  the  analog  multiplexer. 

The  analog  multiplexer  has  two  stages.  The  first  stage  selects  two 
potentiometer  signals  and  inputs  them  into  high-accuracy,  slow- settling, 
differential  instrumentation  amplifiers.  The  second  stage  is  used  for  the 
rapid  selection  of  one  of  the  two  signals  selected  by  the  first  stage.  This 
signal  is  measured  by  a  high-speed  14-bit  analog-to-digital  converter.  The 
A/D  converter  and  multiplexer  operate  under  computer  control. 


Microprocessor 

An  Intel  8080  microcomputer  monitors  the  potentiometers  and  controls  the 
relays  as  comnanded  by  the  operator.  The  computer  contains  random  access 
memory  so  that  the  operator  can  program  manipulator  sequences,  then  perform 
them.  Also  provided  is  erasable  programmable  read-only  memory  (EPROM),  for 
long-term  storage  of  preprogrammed  manipulator  sequences. 


Hand-Held  Terminal 

The  Work  System  Package  was  designed  to  be  attached  to  the  Alvin  sub¬ 
mersible.  To  meet  this  requirement,  the  manipulator  was  controlled  from  a 
small  hand-held  box.  For  the  purpose  of  this  study,  a  small  hand-held 
computer  terminal  (Termiflex  HT-2 )  was  selected  to  perform  the  operator- 
machine  interface.  The  primary  limitation  on  such  a  device  is  the  display 
rather  than  the  controls.  The  terminal  displays  two  lines  of  ten  alphanumeric 
characters  each.  It  also  has  a  scroll  capability  with  access  to  100  lir.es. 

The  interface  was  designed  so  that  the  operator  receives  immediate  feedback 
from  only  the  last  two  lines  of  data.  Consequently  the  operator  normally  does 


k  i. 
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not  have  to  use  the  scroll  feature,  although  it  is  available  for  reviewing 
previous  operations. 


Relays 

Telephone-type  relays  are  used  to  select  two  solenoids.  Two  solid-state 
relays  are  then  used  to  turn  the  solenoids  on  and  off  in  a  predictable  time 
period.  (Rote:  tests  on  the  linkage  manipulator  used  reed  relays  because  of 
different  electrical  requirements.) 

TEST  DESCRIPTION 


FUNCTIONAL  TESTS 

First,  three  elementary  tests  were  made  on  the  automated  system.  The 
first  of  these  was  to  acquire  a  tool  and  a  bit  and  then  to  move  to  the  work 
Area ,  where  control  was  returned  to  the  operator.  The  second  was  to  return 
the  tool  and  bit  to  the  tool  box.  The  third  was  to  drill  a  hole  automatic¬ 
ally. 


Next,  these  three  separate  sequences  were  linked  together,  without  any 
intervention  by  the  operator,  the  programmer  was  able  to  direct  the  manipula¬ 
tor  to  obtain  the  drill  and  bit,  drill  a  hole,  and  return  the  tools  to  the 
tool  box. 

A  fallback  objective  was  also  considered:  to  evaluate  the  mating  (and/or 
disconnect)  of  the  tool  and  manipulator,  which  is  the  most  critical  operation. 
In  still  another  test,  the  microcomputer  was  programmed  to  position  the  manip¬ 
ulator  directly  in  front  of  the  tool  such  that  the  operator  could  easily 
acquire  the  tool. 


In  actual  practice  in  the  deep  ocean,  the  automatic  operation  should  stop 
at  these  critical  points  and  allow  the  operator  to  look  at  the  manipulator 
through  the  TV.  When  the  manipulator  has  acquired  a  tool,  the  operator  must 
make  a  visual  check  to  see  that  the  tool  is  securely  locked  onto  the  manipula¬ 
tor  before  the  tool  is  brought  out.  similarly  the  operator  must  make  sure 
that  the  tool  is  released  after  it  is  replaced  so  that  the  manipulator  does 
not  drag  it  back  out,  causing  it  to  fall  to  the  ocean  floor.  Note  that  the 
operator  needs  only  one  TV  camera  for  these  critical  checks,  since  he  is  not 
actually  controlling  the  manipulator. 

There  was  no  attempt  to  run  the  automatic  controller  fast.  In  fact,  it 
was  slowed  down  at  every  opportunity  in  the  effort  to  obtain  consistently 
reliable  results.  Sequential  operation  was  programmed,  wherever  feasible. 
Intermediate  stopping  points  were  programmed  in.  After  each  move,  the  con¬ 
troller  waited  for  the  arm  to  come  to  a  complete  rest.  (This  precaution  was 
not  always  necessary.) 

Despite  these  limitations,  however,  the  system  performed  faster  under 
programmed  operation  than  under  manual.  Time  reductions  in  operation  are 
important  since  they  lower  the  energy  storage  requirements  of  battery-operated 
submersiblea  or  other  platforms  on  which  such  a  system  would  be  used.  Micro¬ 
computer  control  allowed  the  manipulator  to  repeat  motions  with  such  accuracy 
that  tool  and  bit  exchanges  were  successfully  completed  under  exclusive 
control  of  the  programmer. 

Note  that  the  configuration  of  the  WSP  was  optimized  for  manual  opera¬ 
tion;  if  a  less  exposed  position  were  chosen  for  tool-box  placement,  as  could 
be  done  with  automatic  tool  exchange,  further  improvement  in  operation  could 
be  expected.  Although  the  functional  test  established  that  complete  tool 
interchange  could  be  programmed  and  accomplished  without  human  intervention, 
simple  movement  to  a  point  in  space  was  complicated  by  tool-box  compliance  (as 
well  as  a  manipulator  malfunction).  Programming  the  tool  interchange  process 
was  far  more  difficult  than  anticipated.  The  problems  experienced  are  each 
discussed  briefly  as  follows,  along  with  their  solutions. 
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The  WSP  was  designed  to  acquire  tools  with  a  final  movement  in  which  the 
manipulator  hand  extends  linearly  in  the  proper  direction.  But  in  the  linear 
extend  function,  the  manipulator  arm  was  found  to  experience  a  significant 
droop.  The  linear  extend  function  requires  simultaneous  actuation  of  the 
shoulder  up  and  elbow  down  functions.  The  up  function  requires  the  greater 
amount  of  power,  to  overcome  gravity,  but  the  power  input  is  the  same  for  each 
function  since  all  solenoid  valves  and  hydraulic  actuators  of  the  manipulator 
are  identical.  The  solution  to  this  problem  was  to  program  a  series  of  inter¬ 
mediate  points  at  each  of  which  the  position  of  the  hand  would  be  corrected. 

Attempts  to  extend  directly  toward  the  center  of  the  tool  were  successful 
only  part  of  the  time;  the  manipulator  hand  frequently  would  hit  an  adjacent 
tool  bin.  The  operator  could  avoid  this  problem  by  manually  controlling  the 
nonautomated  hand  open/close  and  wrist  rotate.  (The  computer  does  not  have  a 
feedback  sensor  on  those  functions.)  This  obstacle  was  removed  by  programming 
the  manipulator  to  move  to  a  point  about  1  inch  from  the  tool  and  0.25  inch 
off  center,  then  to  realign  both  the  shoulder  and  wrist  left-right  functions 
to  the  center  of  the  tool. 

Grasping  the  tool  required  that  significant  pressure  be  exerted  on  it. 
This  could  not  be  programed  simultaneously  with  position  control,  since  the 
tool  box  would  move  substantially  before  the  pressure  became  sufficient  to 
overcome  binding  between  the  tool  and  the  tool  box,  and  any  movement  accom¬ 
panied  by  binding  would  cause  significant  change  in  the  position  of  the  tool 
box.  It  was  found  that  grasping  the  tool  could  be  accomplished  sequentially, 
by  careful  alignment  at  the  final  intermediate  position  followed  by  a  5-second 
linear  extend. 

The  tool  acquisition  phase  ends  with  the  tool  box  pushed  several  inches 
from  its  normal  position  and  the  tool  locked  in  the  box  by  binding  forces. 

Tool  removal  from  the  box  is  difficult  because  of  the  binding  tendencies  of 
the  very  compliant  tool  box.  "Nonlinear"  retraction  also  causes  binding.  It 
was  found  that  removal  of  the  tool  could  be  accomplished  by  realigning  the 
manipulator  every  2  inches  or  so. 
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The  movement  for  tool  insertion  into  the  tool  box  after  use  is  entirely 
different  from  the  tool  acquisition  movement.  It  was  solved  primarily  by 
programing  in  a  large  number  of  intermediate  "stopping  for  realignment" 
points . 

■ 

Removal  of  the  hand  after  tool  insertion  into  the  tool  box  is  difficult, 
since  the  hand  tends  to  pull  the  tool  back  out.  inadvertent  pullout  of  the 
tool  was  minimized  by  programming  in  several  sequential  small  movements 
alternating  with  realignments. 

Tool  seating,  the  final  step  in  tool  stowage,  is  achieved  by  a  separate 
sequence  of  closing  the  manipulator  hand,  then  pushing  the  tool  with  the  tip 
of  the  hand  for  several  seconds. 

A  problem  that  occurred  throughout  the  tests  is  that  moving  one  function 
would  cause  the  potentiometer  of  another  function  to  change.  Specifically, 
moving  the  shoulder  up  or  down  caused  three  potentiometers  to  change  (shoulder 
up/down,  elbow  up/down,  and  wrist  up/down).  Also,  the  elbow  up/ down  function 
caused  movement  of  the  wrist  up/down  potentiometer.  If  the  potentiometers  had 
0.001%  linearity,  these  changes  could  have  been  compensated  for.  since  they 
were  only  about  QA01%  linear,  however,  it  was  necessary  to  move  the  shoulder 
up/down  to  a  known  position  before  the  elbow  up/down  could  be  aligned  pre¬ 
cisely.  Alignment  of  the  wrist  up/down  was  more  complex,  since  before  it 
could  be  aligned,  both  the  shoulder  up/down  and  the  elbow  up/down  had  to  be 
moved  to  known  locations.  This  problem  could  be  cured  by  attaching  the  poten¬ 
tiometers  such  that  they  would  be  moved  independently. 

ACCURACY  TESTS 

Several  types  of  accuracy  tests  were  performed  next  for  the  purpose  of 
determining  the  expected  consistency  of  performance,  helping  identify  problem 
areas,  and  discovering  the  cause  and  magnitude  of  errors  so  that  means  could 
be  devised  to  correct  them.  The  objectives  of  the  tests  were  as  follows: 
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1.  Estimate  the  overall  accuracy  of  the  programmer. 

2.  Estimate  the  mean  and  variance  of  the  coasting  distance*  for  the  shoul¬ 
der,  elbow,  and  wrist  function  movements. 

3.  Estimate  the  error  contribution  due  to  each  of  those  functions. 

At  the  conclusion  of  these  tests,  potentiometer  noise  was  measured  to  deter¬ 
mine  its  effect  upon  accuracy. 

The  tests  were  performed  in  the  following  sequence.  The  programmer  was 
directed  to  move  the  manipulator  through  a  series  of  tool  exchanges  and, 
between  each  exchange,  to  return  it  to  a  predesignated  location  about  6  feet 
from  the  manipulator  shoulder  pivot  point,  aligned  with  a  specific  spot  on  a 
target.  After  completion  of  the  movement,  the  alignment  error  at  the  target 
was  measured  with  a  ruler  and  protractor.  In  addition,  the  predicted  errors 
were  read  out  of  the  control  unit  and  recorded. 

Two  sets  of  ten  identical  movements  were  performed.  The  standard  devi¬ 
ation  was  determined,  and  further  analysis  was  done  to  determine  the  cause  of 
error . 

The  manipulator  movements  were  determined  by  the  solenoid  turn-off 
points.  These  were  determined  with  sufficient  accuracy  to  verify  that  the 
system  passed  the  tests,  but  the  programmer  was  not  adjusted  to  yield  optimal 
results.  The  errors  were  averaged  to  determine  the  true  point  to  which  the 
manipulator  was  programmed  to  move,  and  all  further  analyses  used  this  point 
as  a  reference. 


•The  distance  traveled  after  the  command  is  issued  to  turn  off  the  solenoid 
valve . 


test  results 

STANDARD  DEVIATION 

At  the  end  of  each  movement  ( tool  exchange ) ,  the  error  relative  to  the 
desired  point  was  measured.  These  data  contain  a  systematic  error  in  that  the 
programning  was  not  optimal.  The  error  was  then  calculated  relative  to  the 
mean  of  the  final  positions.  (Position  was  described  by  means  of  clock 
notation . ) 


The  error  relative  to  the  reference  point  was  less  than  1/4  inch  in  all 
cases  (table  3).  The  standard  deviation  of  the  error  was  0.108  inch.  This 
indicates  a  98%  probability  of  meeting  the  requirements  on  each  movement;  ie, 
alignments  would  have  to  be  repeated  less  than  2%  of  the  time. 


Total  Error 


Error 

Relative  to  Mean 


Magnitude , 
fraction  of  inch 

Position , 
o’  clock 

Magnitude , 
fraction  of  inch 

Position, 

o'clock 


Mean  of  the  final  positions;  =  -0.085  inch,  =  +0.043  inch 
Standard  deviation  =  0.108  inch 

Standard  deviation  (left/right  only)  *  0.057  inch 
Standard  deviation  (up/down  only)  ■  0.092  inch 

Table  3.  Programner  accuracy  test  results. 


CONTROL  UNIT  ERROR  READINGS 


Control  unit  error  readings  were  taken  for  each  potentiometer  at  the  end 
of  each  test  movement.  Error  was  measured  in  parts  per  16  000  relative  to  the 
preprogrammed  reference  point.  The  control  unit  readings  (table  4)  were  used 
to  estimate  coasting  distances  and  accuracies  for  each  of  the  individual 
functions.  The  results  were  as  follows. 


Test  No 

Manipulator  Accuracy, 
potentiometer  readings . 

Shoulder 

Up/Down 

Elbow 

Up/Down 

Wrist 

Up/Down 

Shoulder 

Right/Left 

Wrist 

Right/Left 

1 

-4 

-4 

4 

4 

4 

2 

-1 

-1 

4 

5 

-5 

3 

-3 

-1 

4 

2 

-3 

4 

+  1 

-2 

6 

4 

3 

5 

-3 

-2 

6 

2 

-2 

6 

0 

-1 

6 

2 

-1 

7 

-4 

-1 

5 

1 

-2 

8 

-1 

0 

5 

0 

-3 

9 

-1 

-1 

5 

0 

1 

10 

-2 

0 

5 

2 

3 

11 

+  1 

-6 

4 

2 

10 

12 

-3 

0 

7 

1 

4 

13 

-1 

0 

8 

-5 

5 

14 

-3 

0 

8 

0 

10 

15 

-4 

-3 

-10  + 

0 

8 

16 

-2 

-2 

-11* 

0 

7 

17 

-5 

-1 

8 

1 

4 

18 

-4 

-2 

-6 

-1 

5 

19 

-4 

-1 

8 

0 

8 

20 

-3 

0 

7 

-3 

5 

Mean 


Standard 

deviation 


-2.55 


1.6 


-1.4 


+3.6 


1.5 


5.6 


♦Solenoid  actuated  (see  text) 


+0.85 


2.3 


+3.10 


4.6 


Table  4.  control  unit  error  reading.  To  convert  control  unit  error  into 
absolute  errors  1  part  in  16  000  over  270®  represents  1  minute  of  arc,  or 
0.017°. 


Shoulder  Op/Down 


The  shoulder  up/ down  function  had  a  dead-hand  width  of  24  units  (0.63 
inch).  The  arm  coasted  9.5  units  (0.24  inch)  with  a  standard  deviation  of  1.6 
units  (0.040  inch). 

Elbow  Op/Down 

The  elbow  up/ down  function  had  a  dead- band  width  of  40  units  (0.71  inch ) . 
The  arm  coasted  18.6  units  (0.33  inch)  with  a  standard  deviation  of  1.5  units 
(0.027  inch). 

Wrist  Up/Down 

The  wrist  up/down  function  had  a  dead-band  width  of  24  units  (1.14 
inches).  The  coasting  distance  could  not  be  accurately  estimated  since  there 
were  two  wrist  alignments  during  the  final  movement  and  only  the  first  move¬ 
ment  was  actuated  during  17  of  20  tries.  (Note:  the  first  ten  movements  had 
three  wrist  up/down  movements;  the  last  ten  had  four  wrist  up/down  movements.) 

The  wrist  up/down  function  was  inconsistent  during  the  final  ten  runs 
because  of  a  programming  error.  Dead- band  was  set  at  ±5  units.  The  previous 
position  was  very  close,  about  -3.5  units,  with  the  result  that  the  solenoids 
were  not  activated  about  50%  of  the  time.  When  the  previous  position  was  -5 
or  lower,  the  solenoids  would  be  activated  and  the  wrist  up/down  moved  to  +2 
units;  ie,  the  wrist  up/ down  went  to  one  of  two  positions  that  were  0.25  inch 
apart. 

Shoulder  Left/Right 

The  shoulder  left/right  function  had  a  dead-band  of  40  units  (1.00  inch). 
The  arm  coasted  17.5  units  (0.438  inch)  with  a  standard  deviation  of  2.3  units 
(0.058  inch). 
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Wrist  Left/Right 


The  wrist  left/right  function  had  a  dead-band  of  40  units  (0.40  inch). 
The  arm  coasted  23.5  units  (0.23  inch)  with  a  standard  deviation  of  4.6  units 
(0.046  inch).  Further  analysis  indicated  that  there  was  a  significant  dif¬ 
ference  between  the  first  ten  movements  and  the  second  ten.  The  first  ten 
coasted  an  average  of  19.2  units  (0.19  inch)  with  a  standard  deviation  of  2.8 
units  (0.028  inch),  while  the  second  ten  coasted  an  average  of  27  units  (0.27 
inch)  with  a  standard  deviation  of  2.3  units  (0.23  inch). 


These  coasting  distance  results  are  summarized  in  table  5. 


Function 


Dead-Band  Width 


Distance  to  Drill, 


Shoulder  left/right  +20  units  at  0.026  =  0.52  inch 
Shoulder  up/down  +12  units  at  0.026  *  +0.31  inch 


Elbow  up/down 

Wrist  left/right 
Wrist  up/down 


+20  units  at  0.0177  *  0.35  inch 


+20  units  at  0.010  *  0.20  inch 

+12  units  at  0.0475  -  0.57  inch 


Table  5.  Coasting  distance  results. 


The  overall  accuracy,  calculated  for  the  control  unit  readings,  was 
essentially  the  same  as  the  measured  accuracy  (table  6),  although  the  data 
were  uncorrelated.  This  indicated  that  there  was  a  problem  in  the  control 
unit  rather  than  in  the  manipulator. 


r 


Measured  Overall  Standard  Deviation 
(measured  with  ruler  and  protractor, 
20  trials) 


LEFT/RIGHT 

Up/down 

Vertical  alignment 
Horizontal  alignment 

Combined  total 


Calculated  Overall  Standard  Deviation 
(calculated  frcm  potentiometer  readings) 

a .  Up/ down 

Shoulder  up/down 
Elbow  up/down 
Wrist  up/down 

Combined  up/ down 
standard  deviation 

b.  Left/right 

Shoulder  left/right 
Wrist  left/right 

Combined  left/right 
standard  deviation 


Inches 


0.057 

0.092 

0.0 

0.0 

0.108 


0.040 

0.027 

0.057* 


0.075 


0.058 

0.046 


0.074 


Minutes  of  Arc 


2.0 

1.9 

7.0* 


2.9 

5.8 


Calculated  total  (a  +  b) 
standard  deviation 


0.104 


•Should  have  been  0.015  inch  and  1.9  minutes  of  arc. 


Table  6.  Manipulator  accuracy 


POTRNTXOHBTER  NOISE 


A  static  measurement  of  potentiometer  noise  showed  that  a  4  mV,  60  Hz 
signal  was  present.  This  effectively  degraded  the  data  acquisition  to  1  part 
in  4000  rather  than  1  part  in  16  000.  The  signal  was  found  to  be  electro¬ 
magnetic  radiation  from  the  WSP  low-pressure  hydraulic  pump.  This  will  not  be 
a  problem  in  the  water,  but  better  electromagnetic  shielding  is  required  for 
lab  testing.  (The  wiring  to  the  potentiometers  consisted  of  shielded  twisted 
pairs,  but  the  potentiometers  and  electronics  were  not  shielded.) 

RISK  FACTORS 


Automatic  tool  interchange  is  not  without  disadvantages.  System  auto¬ 
mation  often  results  in  added  complexity  and  lower  reliability.  The  principal 
source  of  concern  in  the  automatic  tool  interchange  study  is  the  reliability 
of  manipulator  joint  position  sensors,  which  must  work  under  the  extreme 
ambient  pressures  of  the  deep  ocean.  The  rest  of  the  electronics,  which  are 
easier  to  house  and  protect,  are  felt  to  have  a  negligible  impact  on  system 
reliability.  For  follow-on  development,  this  problem  would  be  minimized  by 
employing  good  design,  quality  assurance  measures,  and  comprehensive  testing. 

CONCLUSIONS 

1 .  The  feasibility  of  automatic  tool  interchange  with  a  WSP  comprising  a 
compliant  tool  box  and  a  compliant  undersea  manipulator  was  demonstrated  in 
the  laboratory. 

2.  Equipped  with  fixed-rate  position  aontrol,  the  WSP  performed  auto¬ 
matic  tool  interchange  repeatedly  without  malfunction. 

RECOMMENDATIONS 

1.  Incorporate  automation  into  the  next  work  system  that  is  built. 

2.  Ultimately,  conduct  in-water  tests  of  the  automated  work  system  to 
verify  its  feasibility. 
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APPENDIX  A:  OPERATOR-MACHINE  INTERFACE 


This  appendix  lists  some  of  the  commands  which  an  operator  might  wish  to 
use  during  operation  (table  A1)  and  during  programming  (table  A2). 

It  was  not  feasible  to  include  all  of  these  commands  in  this  feasibility 
demonstration.  Table  A3  lists  the  commands  which  are  available  to  an  operator 
and  table  A4  lists  the  commands  which  are  used  to  program  a  sequential 
operation . 


Functional  Inputs 

1.  Go  to  tool  location  xx  and  retrieve  the  yy  tool  (bit). 

2.  store  tool  (bit)  xx  (which  manipulator  already  has)  into  tool  location 

JOE-* 

3.  Remember  the  present  position  of  the  manipulator  and  call  it  xx  . 

4.  Go  to  the  position  which  was  previously  tagged  as  xx  . 

5.  Stow  manipulator  into  a  compact  position  for  transport. 

6.  Unstow  manipulator  from  transport  position  into  work  position. 

Functional  Outputs 

1.  Selected  button  is  acknowledge  (multifunction  buttons  acknowledged  by 
multifunction  display) . 

2.  Error  conditions  displayed: 

a.  Manipulator  does  not  respond  (  x  seconds  of  "on"  time  does  not 
produce  y  degrees  of  travel ) . 

b.  Manipulator  overshoots  desired  location  by  x  degrees. 

c.  Power-supply  failures  and  other  routine  electronic  malfunctions  if 
not  displayed  elsewhere. 

d.  Hydraulic  system  failures  not  displayed  elsewhere. 


Table  A1.  Operation. 


( 


i 

5 


l 


MOB 


■JUK-MOr 


num 
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Functional  Inputs 


Program 

1.  The  name  of  this  sequence  is  x  (  x  is  a  reference  to  console  inputs)* 

2.  Move  the  manipulator  function  x  to  the  y  position. 

3.  Continue  to  next  step  in  the  sequence. 

4.  Activate  manipulator  function  x  for  y  seconds. 

5.  End  of  sequence;  turn  off  all  manipulator  functions.  (TRANSFER) 

6.  Wait  until  all  presently  activated  functions  are  complete,  then  go  to 
next  step  in  sequence. 

Functional  Outputs 

Display  inputs  as  required  for  next  section. 

1 .  Display  program  sequence  y  - 

2.  Display  present  position. 

3.  Display  diagnostic  information  during  execution  of  a  sequence. 

Table  A2 .  Programming 
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Display  Options 


1 .  Display  individual  potentiometer  reading. 

2.  Update  potentiometer  reading  at  ten  samples  per  second. 

3.  Display  all  potentiometer  readings. 

4.  Update  all  potentiometer  readings. 

5.  Display  a  programmed  sequence  of  commands. 

Manipulator  Operating  Coimnands 

1.  Execute  a  preprogrammed  sequence  of  operations.  Name  of  operation  will 
be  displayed  before  and  during  operation. 

2.  Execute  an  operator-programmed  sequence  of  operations.  This  does  not 
have  a  name. 

3.  Display  diagnostic  information  during  operation. 

4.  The  operation  may  be  stopped  any  time. 

Programming  Commands 

1.  Any  command  listed  in  table  A1  may  be  entered  anywhere  in  the  sequence. 

2.  Commands  can  be  transferred  from  one  location  to  another. 

3.  Entire  command  sequence  (preprogrammed  or  programmed)  can  be  inserted 
into  the  new  sequence. 

4.  The  present  manipulator  position  may  be  automatically  entered. 


Table  A3.  Commands  used  by  the  operator. 


35 


Single  Function  Position  Commands 


1.  Move  shoulder  up/down  to  XXXX  OXXO. 

2.  Move  shoulder  left/right  to  XXXX  OXXO. 

3.  Move  elbow  up/ down  to  XXXX  OXXO. 

4.  Move  wrist  up/down  to  XXXX  OXXO. 

5.  Move  wrist  left/right  to  XXXX  OXXO. 

6 .  Operate  hand  open  for  3 . 5  seconds . 

7.  Operate  hand  close  for  3.5  seconds. 

Multiple  Function  Position  Commands 

8.  Extend/ retract  to  XXXX  OXXO. 

(Operates  either  shoulder  up  and  elbow  down  or  shoulder  down  and  elbow  up 
by  means  of  the  shoulder  up/ down  potentiometer.) 

9.  Extend  for  3.5  seconds. 

(Operates  shoulder  up  and  elbow  down.) 

10.  Stop. 


Table  A4.  Programming  commands.  Any  number  of  these  commands 
can  be  executed  sequentially. 
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APPZHDIX  Bt  OOMPOTER  PROGRAM 
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A3M30  s 

FI sOACQ, 

,  ASY 

XREF 

PAGEWIDTH  <72) 

PRINT ( iLP  s  > 

I SIS- I I  8080/8081; 

MACRO 

ASSEMBLER*  04 

.  0  DACQ  PAGE  1 

LOC 

OBJ 

LINE 

SOURCE 

STATEMENT 

! 

NAME 

DACQ 

4 

3 

*  PROGRAMMER! 

C.  MORRIN 

4 

/‘VERSION  2.1 

5 

Z 

/BATE  OF  LAST 

CHANGE!  OCTOBER  25/  1977 

O 

7 

3 

9 

;#»***#*#*#*«#***##*«**»#**##*««**«**»«*##*****# 

CSEG 

10 

1 1 

PUBLIC  DISPOT /SETMUX/GETDAT /SAVE 

12 

PUBLIC  GETPOT / ADONLY 

13 

EXTRN 

OUTPUT /FNASC/ WAIT /HEXASC 

14 

15 

16 

17 

18 

EXTRN 

OPINFO/MUXAD/PRADD 

; ft********************************************** 

f DISPLAY  POTENTIOMETER  ROUTINE  <DISPOT) . 

1? 

•FUNCTION  TO 

BE  DISPLAYED  IS  IN  REG  A. 

20 

/DISPOT  GETS 

THE  CURRENT  VALUE  OF  THE  POT/ 

21 

;and  outputs 

'  FF-XXXX '  TO  THE  HAND  CONTROL. LER. 

22 

0000 

C5 

23 

DISPOT!  PUSH 

B 

0001 

E5 

24 

PUSH 

H 

0002 

4F 

25 

MOV 

C/A  ;get  ready  for  smux 

0003 

CD5700 

C 

26 

CALL 

3MUX 

0006 

CD9F.00 

C 

27 

CALL 

GF.TBAT 

000? 

CD3200 

C 

28 

CALL 

SAVE 

29 

/STORES  DATA 

IN  OPINFO+7  TO  +  10 

OOOC 

7? 

30 

MOV 

A  /  C 

31 

/FNASC  REQUIRES  FUNCTION  IN  ACC 

OOOD 

CDOOOO 

E 

32 

CALL 

FNASC 

33 

/ASCII  FUNCTION  IS  NOW  IN  0PINF0+4/+5 

34 

/QPINFO+3  IS 

'  ' / 0PINF0+6  IS 

0010 

210300 

E 

35 

LX  I 

H/ OPINFO+3 

0013 

OEO0 

36 

MV  I 

C/8 

0015 

cnoooo 

E 

37 

CALL 

OUTPUT  /'  FF-XXXX' 

0010 

El 

38 

POP 

H 

0019 

Cl 

39 

POP 

B 

001A 

c? 

40 

41 

42 

RET 

; # ### # ## **» *»«»*» # ## # *»#* * »***» # *»***#*####*«#** 

43 

001B 

05 

44 

GETPOT!  PUSH 

D 

00 1C 

E5 

45 

PUSH 

H 

0010 

CD9200 

C 

46 

CALL 

SETMUX 

0020 

CD9E00 

C 

47 

CALL 

GETDAT 

0023 

EB 

48 

XCHG 

0024 

2A0000 

E 

49 

LHl.D 

PRADD 

0027 

23 

50 

INX 

H 

0020 

72 

51 

MOV 

M/D 

002? 

23 

32 

INX 

H 

002A 

73 

53 

MOV 

M/E 

002B 

EB 

54 

XCHG 

38 


.1  3  .1  3“  t  i 


LOC 

002C 

002F 

0030 

0031 


0032 

0033 

0036 

0035 

0036 

003? 

003B 

003D 
003E 
003F 
0060 
0063 
0066 
006  7 
0068 
006? 
006C 
006  0 
006E 
006F 


0050 

0053 

0056 


8080/8085 

MACRO 

ASSEMBLER/  04 

.  0  DACO 

PAGE  2 

OBJ 

LINE 

SOURCE 

STATEMENT 

CB3200 

C 

55 

CALL 

SAVE 

56 

/DATA  WILL  BE 

PUT  INTO  QPINFO+7 

TO  +10 

El. 

57 

POP 

H 

01 

58 

POP 

D 

c? 

59 

RET 

60 

61. 

.;*##########*##*#######*##########*#*##********* 

62 

63 

/SAVE  DATA  ROUTINE  <SAVE>  s 

66 

/DATA  WILL  BE 

PLACED  IN  QPINFO+7 

TO  +10 

65 

;a/d  data  must  be  in  red  ml 

66 

F5 

67 

SAVE  s  PUSH 

PSW 

C5 

68 

PUSH  ! 

B 

ns 

69 

PUSH 

D 

?7 

70 

SUB 

A 

1 10700 

E 

71 

LXI 

D/0PINF0+7 

0E06 

72 

MV  I 

C/6H 

0606 

73 

TSFT4 :  MVI 

Bz-tM 

76 

/TRIPLE  SHIFT 

ACC  AND  HL  FOUR  PLACES 

29 

75 

DAD 

H 

1 7 

76 

RAL 

OS 

77 

DCR 

B 

C23D00 

C 

78 

JNZ 

TSFT6+2 

CDOOOO 

E 

79 

CALL 

HEXASC 

12 

80 

STAX 

D  /STORE  DATA  IN  OPINFO+7-lO 

13 

81 

I  NX 

D 

OD 

82 

OCR 

C 

C23B00 

C 

83 

JNZ 

TSFT4 

01 

86 

POP 

D 

Cl. 

85 

POP 

B 

FI 

86 

POP 

PSW 

C9 

87 

RET 

88 

89 

/ADONl.Y  READS 

A/D  AND  SAVES  DATA 

IN  OP INF 0+7-1 0 

CD9E00 

C 

90 

ADONLY:  CALL 

GETDAT 

C 03 200 

C 

91. 

CALL 

SAVE 

C? 

92 

RET 

93 

96 

/  ###  tfKttft*  #####  ft*****************  #####* 

95 

96 

ZSMUX  ROUTINE 

97 

/REQUIRES  FUNCTION  IN  RED  C 

?8 

/•FORMAT: 

XXXXXOOO  =  SU 

99 

/ 

XXXXX001.  *  Sl. 

100 

1 

XXXXXOIO  -  EU 

1.01 

/ 

XXXXX011  ^  EE 

102 

• 

f 

XXXXXIOO  =  WU 

103 

/ 

XXXXX101  ^  Wl. 

104 

/ 

XXXXX110  =  WR 

1.05 

/ 

106 

/MUX  FORMAT  <8255  REG  Cz  ADDRESS 

*  MUXAO+2) 

107 

>  OOOXXXXX  =••  SU  =•-  FUNCTION 

*1. 

108 

Z  001XXXXX  *  EU  *  FUNCTION 

#2 

109 

/  01.0XXXXX  -  SL  =  FUNCTION 

*3 
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LOG 

OBJ 

LINE 

SOURCE 

STATEMENT 

110 

/ 

011XXXXX  =  WU  = 

FUNCTION 

*4 

111 

t 

1XX00XXX  =  Ml.  =■ 

FUNCTION 

♦5 

112 

t 

1XX01XXX  ~  ??  = 

FUNCTION 

*6 

113 

\ 

1XX10XXX  -  ??  * 

FUNCTION 

*7 

114 

i 

XXXXXXXN  =  A/D  START  <N  = 

:NEG 

1  IS 

0057 

F5 

116 

SMUX: 

PUSH 

PSW 

0058 

CS 

117 

PUSH 

B 

005? 

D5 

118 

PUSH 

D 

OOSA 

es 

1  19 

PUSH 

H 

005B 

3E07 

120 

MV  I 

A/7 

OOSB 

A] 

121 

ANA 

C 

005E 

0600 

122 

MV  I 

B/0 

0060 

CA8300 

C 

1.23 

JZ 

DONE 

;su 

0063 

3D 

124 

OCR 

A 

0064 

0640 

1  25 

MV  I 

B/40H 

0066 

CA8300 

c 

126 

JZ 

DONE 

;sl 

0069 

0620 

127 

MV  I 

B/20H 

006B 

3D 

128 

OCR 

A 

006C 

CA8300 

c 

3  29 

JZ 

DONE 

/F.U 

006F 

0600 

130 

MV  I 

B/0 

0071 

3D 

131 

DCR 

A 

0072 

CA3300 

c 

132 

JZ 

DONE 

/’EE 

0075 

0660 

3  33 

MV  I 

B/60H 

0077 

3D 

134 

DCR 

A 

0070 

CA8300 

c 

3  35 

JZ 

DONE 

;wu 

007B 

0680 

136 

MV  I 

B/80H 

007D 

3D 

3  37 

DCR 

A 

007E 

CA8300 

c 

138 

JZ 

DONE 

;wl 

0081 

0690 

139 

MV  I 

B/90H 

0083 

78 

140 

DONE : 

MOV 

A/B 

0084 

320200 

E 

141 

STA 

MUXAD+2 

0087 

01C300 

142 

LXI 

B/200 

008A 

CDOOOO 

E 

143 

CALL 

WAIT 

144 

;wait 

10MS  FOR 

OP  AMP  TO 

i  SETTLE 

008D 

El 

145 

POP 

H 

008E 

D1 

146 

POP 

D 

ooer 

Cl 

147 

POP 

B 

0090 

FI 

148 

POP 

PSW 

0091 

C? 

149 

RET 

150 

IS]  ;***«***«#**#***#*«*»*************»********#**** 

152 

153  JSETMUX  SEYS  THE  MULTIPLEXOR  TO  THE 

154  /FUNCTION  POINTED  TO  BY  PRADD 


0092 

E5 

155  SETMUXS 

PUSH 

H 

0093 

C5 

156 

PUSH 

B 

0094 

2A0000 

E 

157 

LHLD 

PRADD 

0097 

4E 

158 

MOV 

C/M 

0098 

CD5700 

C 

159 

CALL 

SMUX 

0098 

Cl 

160 

POP 

B 

009C 

El 

161 

POP 

H 

0090 

C? 

162 

RET 

163 

164  »»**»»»#»*»»*»»»»»*»»*»«»**»*»*»*»*»#*»*»« 
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l.OC  OBJ  LINE  SOURCE  STATEMENT 

165 

166  1  GETDAT  STARTS  THE  A/P  CONVERTER# 

167  J  THEN  REAPS  TT  WHEN  DONE 

009 E  F5  168  GETDAT!  PUSH  F‘SW 


009F 

C5 

169 

00  AO 

3E01 

170 

00  A'! 

370300 

E 

171 

OCAS 

3E00 

172 

00A7 

370300 

E 

1.73 

OOAA 

010100 

174 

00  AP 

CDOOOO 

E 

175 

OOBO 

2A0000 

E 

176 

00B3 

Cl 

177 

00B4 

FI 

178 

OOPS 

C9 

1.79 

180 

181 

PUBLIC 
AD ONLY 

SYMBOLS 

C  0050 

DISPOT 

C 

0000 

SAVE 

w 

0032 

SETMUX 

c 

0092 

EXTERNAL 
FNASC  £ 

SYMBOLS 

0000 

HEXASC 

E 

0000 

OUTPUT 

t. 

0000 

PRADD 

E 

0000 

USER  SYMBOLS 
ADONLY  C  0050 

DISPOT 

C 

0000 

GETDAT 

C 

009E 

GETPOT 

c 

001B 

OP INFO 

V. 

0000 

OUTPUT 

E 

0000 

SETMUX 

c 

0092 

SMUX 

C 

0057 

PUSH 

B 

MV  I 

Ail 

ST  A 

MUXAD+3 

MV  I 

A ;  0 

ST  A 

MUXAD+3 

/START  A/D 

LXI 

B/l 

CALL 

WAIT 

LHLD 

MUXAD 

POP 

B 

POP 

PSW 

RET 

; A/D  DATA  IS  IN 

END 

GETDAT 

C 

009E 

GETPOT 

C 

001  B 

MUXAD 

E 

0000 

OP INFO 

E 

0000 

WAIT 

E 

0000 

DONE 

C 

0083 

FNASC 

E 

0000 

HEXASC 

E 

0000 

MUXAD 

E 

0000 

PRADD 

F. 

0000 

SAVE 

C 

0032 

TSFT4 

C 

003B 

WAIT 

E 

0000 
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ADONl.Y 

12 

90* 

OACO 

1 

D I SPOT 

11 

231 

DONE 

123 

126 

129 

132 

135 

FNASC 

13 

32 

GETDAT 

11 

27 

47 

90 

168* 

GETPOT 

12 

44* 

HEXASC 

13 

79 

MUXAD 

14 

141 

171 

173 

176 

OPINFO 

14 

35 

71 

OUTPUT 

13 

37 

PRADD 

14 

49 

157 

SAVE 

11 

28 

55 

67* 

91 

SETMUX 

11 

46 

155* 

SMUX 

26 

116* 

159 

TSFT4 

73* 

78 

83 

WAIT 

13 

143 

175 

CROSS  REFERENCE  COMPLETE 


! 


A3M80  :  F  L  :  DELAY.  ASY  XREF  PAGEWIDTH <72>  PRINTOLP:) 


ISIS--II  B080/80B5  MACRO  ASSEMBLER /  V4 . 0  DELAY  PAGE  1 


LOC  OBJ  LINE  SOURCE  STATEMENT 

1  NAME  DELAY 

•y 

3  J PROGRAMMER:  C.MORRIN 

4  J VERS  ION  1.0 

5  1DATE  OF  LAST  CHANCE:  OCTOBER  31/  1977 

6 

7  J VARIABLE  DELAY  ROUTINE 
3  /REGISTER  BC  CONTAINS  DELAY 
9  ! DELAY  =••  50  MICROSECONDS  X  <BC) 

10 

11  /IMPLEMENTATION:  RTC*1  LOADED  WITH  DELAY. 

12  /WHEN  FINISHED  RTC#2  SENDS  SIGNAL 

13  /TO  8259  INTERRUPT  CHIP  WHICH  CALLS 

14  ; INTIAL  ROUTINE  WHICH  JUMPS  TO  "HAITI “ . 

15  / “WAIT2"  IS  THE  WAITING  PLACE 

16  /DURING  THE  COUNTDOWN. 


0000 

E5 

3.7 

13 

39 

20 

21 

22 

23  WAIT: 

CSEG 

PUBLIC 

EXTRN 

PUSH 

0001 

D5 

24 

PUSH 

0002 

F5 

25 

PUSH 

0003 

210300 

E 

26 

LXI 

0006 

3670 

27 

MV  I 

0008 

2B 

28 

DCX 

0009 

2  B 

29 

DCX 

000 A 

71 

30 

MOV 

000?. 

70 

31 

MOV 

oooc 

F3 

32 

DI 

OOOD 

210100 

E 

33 

LXI 

0010 

5E 

34 

MOV 

001  1 

36B  F 

35 

MV  I 

0013 

2B 

36 

DCX 

0014 

3685 

37 

MV  I 

0016 

3E01 

38 

MV  I 

0018 

320000 

F. 

39 

ST  A 

001B 

FB 

40  WAIT2 : 

El 

00 1C 

3A0000 

E 

41 

LDA 

001F 

E6FF 

42 

AN  I 

0021 

C21B00 

C 

43 

JNZ 

0024 

r  3 

T 

44 

DI 

0025 

7B 

45 

MOV 

0026 

F640 

46 

ORI 

0028 

210100 

E 

47 

LXI 

002B 

77 

48 

MOV 

002C 

2B 

49 

OCX 

002D 

3666 

50 

MV  I 

002F 

3684 

51 

MV  I 

0031 

FI 

52 

POP 

0032 

D1 

53 

POP 

WAIT /HAITI 
RTCAD/ INTAD/WFLAG 

H 

D 

PSW 

H/RTCAD+3  /BC  CONTAINS  DELAY 
M/70H  /SET  RTC1  TO  MODE  0 

H 
H 

M/C  /'LOAD  RTCtl  «  REG  BC 

M/B 

H/INTAD+1 

E/M  JGET  CURRENT  MASK 

M/OBFH  /MASK  ALL  BUT  RTC1 
H 

M/85H  / 0CW2:  RTC*1  TOP  PRIORITY 

A/1 

WFl.AG 

WFl.AG 

OFFH  /‘SET  ACC  FLAGS 

WAIT2  /WAIT  FOR  RTCtl  INTERRUP 


A/E  ;get  saved  mask 

4 OH  /MASK  OUT  RTC1 

H/INTAD+1 

M/A  JOCWl.:  SET  MASK 

H 

M/66H  J0CW2 :  END  OF  RTC1  INT 
M/84H  /‘ 0CW2 :  UART  TOP  PRIORITY 

PSW 
D 


43 


ISI3-II  8080/B0B5  MACRO  ASSEMBLER/  04.0 


DELAY 


PAGE 


LOC 

OBJ 

LINE 

SOURCE  STATEMENT 

0033 

El 

54 

POP 

H 

0034 

FB 

55 

El 

0035 

C9 

56 

RET 

57 

58 

/ 

4-+  +  +  4-  +  +  +  4-4-  +  +  4-4-  +  +  4-4-4-  +  +  +  +  +  +  4  +  +  +  +  +  +  +  +  +  4-  +  +  4-  +  4-4-  +  +  +  +  + 

0036 

F5 

59 

WAITl: 

PUSH 

PSW 

0037 

3E00 

60 

MVI 

A  .0 

0039 

320000 

E  61 

STA 

WFLAG 

003C 

FI 

62 

POP 

PSW 

0030 

C? 

63 

RET 

/•RETURN  TO  WAIT2 

64 

65 

END 

PUBLIC 

SYMBOLS 

WAIT 

C  0000 

HAITI 

C 

0036 

EXTERNAL  SYMBOL 

3 

I  NT  AO 

E  0000 

RTCAD 

E 

0000 

WFLAG 

E  0000 

USER  SYMBOLS 

INTAD 

E  0000 

RTCAD 

E 

0000 

WAIT 

C  0000  WAITl  C  0036 

WAIT2 

C  001B 

WFLAG 

E 

0000 

ASSEMBLY  COMPLETE.  NO  ERRORS 


IS IS— I I  ASSEMBLER  SYMBOL  CROSS  REFERENCE/  V2.1 


FACE 


DELAY 

1 

INYAW 

21 

33 

47 

RTCAD 

21 

26 

WAIT 

20 

234 

HAITI 

20 

59* 

WAIT  2 

404 

43 

WFLAG 

21 

39 

41 

CROSS 

REFERENCE 

COMPLETE 

61 


ASM80  s i" J  s EPROMW .  AST  XREr  PAGEWIDTH<72>  PRINT  ( si.Ps) 


ISIS-U 

:  3080/8033 

MACRO 

ASSEMBLER /  04.0 

EPROMW  PAGE  1 

LOC 

OBJ 

LINE 

SOURCE  STATEMENT 

1 

NAME 

EPROMW 

3 

/•PROGRAMMER!  C. 

MORRIN 

4 

/VERSION !  2. ON 

S 

/'DATE 

OF  LAST  CHANGE:  NOVEMBER  7,  1977 

6 

7 

;  »*»#< 

8 

9 

DSEG 

10 

11 

PUBLIC 

H0/H1/H2/H3/H4 

12 

PUBLIC 

H3/H6/M7/H3/H9 

13 

14 

/»*»*«#**«*«««*»****»»##»»***»»*»«***#»***##*#»# 

15 

/•FUNCTION  DEFINITIONS! 

16 

OOOO 

17 

SU 

EQU 

0 

0001 

18 

SL 

EQU 

1 

0002 

19 

EU 

EQU 

2 

0003 

20 

EE 

EQU 

3 

0004 

21 

wu 

EQU 

4 

0005 

22 

HI. 

EQU 

S 

0003 

23 

NO 

EQU 

8 

0009 

24 

UC 

EQU 

9 

OOOE 

25 

EX 

EQU 

OEH 

26 

OOFF 

27 

STOP 

EQU 

OFFH 

28 

29 

;»*ft**«»ft*»»*w**K*ff ***»**»»***»»«*»*»»**»*»»»»»« 

30 

/ PR0G*AD=*0 

31 

/MOVE 

ARM  TO  NEUTRAL  POSITION 

0000 

00 

32 

HOi 

DB 

8U/6AH/44H/5 

0001 

6A 

ooo;: 

44 

0003 

05 

0004 

01 

33 

DB 

SL/62H/88H/S 

0003 

62 

0006 

88 

0007 

05 

0008 

02 

34 

DB 

EU/2BH/0E4H/5 

0009 

2B 

OOOA 

E4 

OOOB 

05 

oooc 

04 

35 

DB 

WU/7EH/0D0H/5 

0000 

7E 

oooe 

DO 

000F 

05 

0010 

03 

36 

DB 

WL/7BH/0CCH/5 

0011 

7B 

0012 

CC 

0013 

03 

001  4 

FF 

37 

DB 

STOP 

f' 

i 

r  / 
I' 


V  ’ 


»  4 


38 

39  ;*■< 


46 


I’.tci 


ISIS- I I  3080/8085  MACRO  ASSEMBLER ,  04.0 


EPROMW 


l.C)C 

OEM 

LINE 

SOURCE 

STATEMENT 

40 

»PRQG#AB-=#1 

41 

JGO  TO  TOOL  #1. 

: 

0015 

05 

42 

HI  s  DB 

ML,7CH,34H,3 

001 6 

7C 

0017 

34 

0010 

03 

0019 

08 

43 

DB 

HO, 0,0,0 

001 A 

00 

001B 

00 

0010 

00 

0010 

01 

44 

DB 

SL,8BH»0C0H,5 

001  E 

3B 

001F 

CO 

0020 

05 

45 

0021 

00 

46 

DB 

SiU  >  68H ,  84  M ,  3 

0022 

68 

0023 

84 

0024 

03 

0025 

02 

47 

DB 

EU,22H,74H,5 

0026 

22 

0027 

74 

0028 

05 

0029 

04 

48 

DB 

W1J  ,  8 1 H  ,  SOM ,  3 

002A 

81 

002B 

50 

002C 

03 

49 

0020 

03 

50 

DB 

EE,70H,0,3 

002E 

70 

002F 

00 

0030 

03 

0031 

00 

51 

DB 

SU,78H,0B4H,3 

0032 

78 

0033 

F4 

0034 

03 

0035 

02 

52 

DB 

EU  IQH,0B0H»3 

0036 

38 

003  7 

BO 

0030 

05 

53 

0039 

03 

54 

DB 

EE,7CH»0ACH*3 

003A 

7C 

003B 

AC 

003 C 

03 

003D 

00 

55 

DB 

SU,7EH,0ACH,3 

003E 

7E 

003  r 

AC 

0040 

03 

0041 

02 

56 

DB 

EU,43H,0B4M,5 

0042 

43 

00m  3 

B4 

0044 

05 

57 

0045 

03 

58 

DB 

EE,81H,0,3 

ISIS- II  8080/8085  MACFJO  ASSEMBLER /  04 . 0  EPROMW  PARE  3 


LOC 

OBJ 

LINE 

SOURCE 

STATEMENT 

0066 

81 

0067 

00 

0068 

03 

0069 

00 

59 

DB 

SU;83H;90H;3 

0060 

33 

006P 

90 

006C 

03 

006TI 

02 

60 

DB 

EU»4CH»0BCH;5 

006E 

4C 

0061’ 

BC 

0050 

05 

61 

0051 

03 

62 

DB 

EE#85H/0ACH;3 

0052 

85 

0053 

AC 

0054 

03 

0055 

00 

63 

DB 

SU/86H* 0ACH/3 

005b 

86 

0057 

AC 

0058 

03 

0059 

02 

66 

DB 

EU/51H; 88H;5 

0050. 

51 

005B 

88 

005C 

05 

65 

005D 

01 

66 

DB 

8L;8BH/0>7 

005E 

SB 

005F 

00 

00 60 

07 

OOol 

05 

67 

DB 

Wl.  r  7AH/0 ; 3 

0062 

7A 

OOr.3 

00 

006'* 

03 

68 

0065 

03 

69 

DB 

EE/87H;0;3 

00o6 

07 

0067 

00 

OObG 

03 

0069 

09 

70 

DB 

HC / 0 ; 0 t 0 

00b  A 

00 

006B 

00 

OObC 

00 

006D 

OE 

71 

DB 

EX; 0 /  0 ;  0 

oobt: 

00 

006F 

00 

0070 

00 

0071 

FF 

72 

DB 

STOP 

73 

74  ;  +++++++++++++ +++++•♦■+ +++++-f ++++ +■*■■*■•*-+■•♦■■*■■*•+■*+•*•■*•■*■+•*■+ 

75  ;PR0B<*AD«--*2 

76  IBACK  AWAY  FROM  TOOL  *1  (WITH  OR  WITHOUT  TOOL) 

77  HZ i  DB  EE/83H;90H;3 


0072  03 
0073  83 
007*  90 


SIS- II  P080/8085  MACRO  ASSEMBLER >  U4.0  EPRONW  PAGE  4 


l-OC 

OBJ 

LINE 

SOURCE 

STATEMENT 

00 76 

02 

78 

DP 

EU.4CH/0BCH/5 

0077 

4C 

0078 

PC 

007? 

05 

79 

007A 

03 

80 

DB 

EE»7EH/0CCH»3 

007P 

7E 

007C 

CC 

007D 

02 

007E 

02 

31 

DB 

EU/43H/0B4H/5 

007F 

43 

0080 

84 

0081 

05 

82 

0082 

03 

83 

DB 

EEf 70H>0>5 

0083 

70 

0084 

00 

0085 

05 

008 6 

EF 

84 

DB 

STOP 

85 

96  ;+■*■■* 


87  ;PRGG»AD=»3 

88  ICO  TO  BIT  *} 

(WITH  TOOL  tl> 

0037 

01 

8?  H3 :  DB 

SL/6AH, 0»7 

0088 

6A 

003? 

00 

008A 

07 

0 088 

05 

90  DB 

ML 1 75H / 08H » 3 

008C 

75 

008D 

08 

OOBE 

03 

91 

008E 

00 

92  DB 

8U.*93H/4CH»3 

00?0 

93 

0091 

4C 

00?2 

03 

0093 

02 

93  DB 

EU  >  3AH » OACH  »  5 

0094 

3A 

0095 

AC 

0096 

05 

0097 

04 

94  DB 

HU»79H#0ECH>3 

0098 

7? 

0099 

EC 

009A 

03 

95 

009B 

01 

96  DB 

SL»6FH/?0H/5 

009C 

or 

009D 

90 

009E 

05 

009F 

05 

97  DB 

WL/75H/08H/3 

OOAO 

75 

00  A 1 

08 

00A2 

03 

OOAJ 

04 

98  DB 

MU»7CH>0E4H»3 

00A4 

7C 

49 


£-  X  -  1 1  8080/80815  MACRO  ASSEMBLER/  V4 . 0 


EPRGMW  PAGE 


LQC 

OBJ 

LINE 

SOURCE 

STATEMENT 

00A5 

E4 

00  Ac/ 

03 

00A7 

FF 

99 

DB 

STOP 

100 

101 

?4-4>  +  4-4-4-4-4-4-4.-44>4-4-4’4-4-4-+4-4*4-4-4-4-4-4-4-4-4-4-4-4-4-*4-4-4>4*4-4*4*4-4-4’4-4- 

102 

;PR0G*AD-*4 

103 

/‘MOVE 

TOOL+BIT 

TO  METAL  PLATE  AND  ALIGN 

00A8 

01 

104 

H4S 

BB 

SL/60H/54H/5 

)0A° 

60 

OOAA 

34 

OOAB 

05 

OOAC 

05 

105 

DB 

WL/7CH/8CH/5 

OOAO 

7C 

ooAt: 

8C 

OOAF 

05 

106 

OOBO 

04 

107 

DB 

MU/9CH/4CH/4 

OOBl 

9C 

00B2 

4C 

00B3 

04 

00B4 

00 

108 

DB 

SU/80H/0ACH/3 

OOB5 

80 

00B6 

AC 

00B7 

03 

00B8 

02 

109 

DB 

EU/3CH/68H/5 

00f)9 

3C 

OOBA 

69 

OOBB 

05 

110 

OOBC 

00 

1 11 

DB 

SU/64H/0ECH/3 

OOBD 

64 

OOBE 

KC 

OOBF 

03 

ooco 

02 

1.12 

DB 

EU/37H/0B4H/S 

ooct 

37 

00C2 

B4 

00C3 

05 

OOC4 

04 

1.13 

DB 

WU/70H/0FCH/3 

00C5 

70 

00C6 

FC 

00C7 

03 

1 14 

00C3 

03 

115 

DB 

EE/68H/70H/3 

00C9 

68 

OOCA 

70 

OOCB 

03 

OOCC 

00 

116 

DB 

SU/6BH/70H/3 

OOCB 

AB 

OOCE 

70 

oocr 

03 

OODO 

02 

117 

DB 

EU/42H/8CH/5 

OOD1 

42 

00D2 

8C 

00B3 

05 

118 


50 


II  8080/8085  MACRO  ASSEMBLER*  04.0 


EPROMW  PARE 


b 


LOC 

OBJ 

LINE 

SOURCE 

STATEMENT 

OOP  4 

r"r 

!  1 7 

PB 

STOP 

120 

121 

/  4-+  +  +  +-+  +  +"*'+-+  +  + 

+•  +  +  +  •♦•*•  +  •*•  +  +  +■■♦■  +  +  +  +••*■♦•■)■  +  +  +  +  ■)■  +  +  +•  +  •*  +4-  +  +  + 

122 

*PR0G»AD=»5 

123 

{RETURN  BIT  *1. 

TO  TOOL  RACK: 

0005 

05 

124 

H5  i  08 

ML*  76H/0D8H*3 

OOItb 

?b 

00D7 

B8 

001)8 

03 

OOD? 

01 

125 

DB 

SL*6AH*0C0H*5 

00  BA 

bA 

OODB 

CO 

oopc 

05 

126 

OODB 

00 

127 

BB 

SU  *  99H  *  OEOH  *  3 

OODE 

99 

COPE 

EO 

ooeo 

03 

OOE  3 

02 

128 

BB 

EU*42H*0A8H*5 

00E2 

42 

00  El! 

A8 

OOE  * 

05 

00E5 

04 

1  29 

DB 

MU  *  78H  *  0  *  3 

OOEo 

78 

OOE? 

00 

ooea 

03 

130 

OOE? 

01 

131 

BB 

SL  *  6FH  *  OCOH  *  5 

OOEA 

bE 

00E8 

CO 

OOEC 

05 

OOEH 

04 

132 

DB 

MU  *  7DH  *  OBCH  *  3 

OOEE 

7B 

OOEF 

BC 

ooro 

03 

133 

OOF! 

05 

134 

DB 

Ml.  *75H*0ACH*3 

00F2 

75 

00E3 

AC 

OOF*) 

03 

00E5 

04 

135 

DB 

WU*7EH*50M*3 

OOFb 

7E 

00  f? 

50 

00F8 

03 

13b 

OOF? 

05 

137 

DB 

ML  *  74H  * 14H  *  3 

OOEA 

74 

OOFB 

14 

OOEC 

03 

OOFB 

04 

138 

DB 

WU*7FH*6CH*3 

OOEE 

7E 

OOFF 

6C 

0 !  00 

03 

139 

0101 

05 

!  40 

DB 

Ml.  *  74H  *  1  4M  *  3 

51 


I3IS-II  3080/8035  MACRO  ASSEMBLER/  V4.0 


EPRQMH  PAGE 


7 


l.OC 

OBJ 

LINE 

SOURCE 

STATEMENT 

0102 

74 

0103 

1*1 

0104 

03 

0105 

0*1 

141 

DB 

WU/7FH/6CH/3 

0106 

7F 

0107 

6C 

0108 

03 

142 

010? 

03 

143 

DB 

EE/8DH/0B0H/3 

010A 

3D 

010B 

BO 

010C 

03 

010B 

FF 

144 

OB 

STOP 

145 

146 

;  ♦♦ 

1.47 

/PR0G*AD-*6 

148 

/STORE 

TOOL  *1 

AFTER  STORING  BIT  #1 

01.  OE 

01 

149 

H6 : 

DB 

SL/5FH/6CH/3 

OlOF 

5F 

01  JO 

6C 

0111 

03 

01  1.2 

05 

150 

DB 

Ml.  /7AH/0ECH/3 

0113 

7  A 

0)1-4 

EC 

0115 

03 

151 

Olio 

04 

152 

OB 

WU/?CH/4CH/3 

0!  17 

9C 

0118 

•1C 

on? 

03 

01 1A 

00 

153 

DB 

SU/80H/0ACH/3 

01  in 

80 

one 

AC 

01  m 

03 

01  IE 

02 

154 

DB 

EU/3CH/68H/5 

oi  ir 

3C 

0120 

68 

0 1  2 1 

05 

155 

0122 

00 

156 

DB 

SU/68H/84H/3 

0123 

63 

012*1 

84 

0125 

03 

0126 

02 

157 

DB 

EU/22H/74H/5 

0127 

22 

0123 

74 

012? 

05 

01  2  A 

04 

1  58 

DB 

MU/81 H/50H/3 

012B 

31 

01  2C 

50 

01 2D 

03 

159 

0t2E 

01 

160 

DB 

SL/8BH/7CH/7 

01  2  P 

88 

0130 

7C 

52 


SIS- 1 1  ;i080/B0BS  MACRO  ASSEMBLER »  04.0  EPROMM  PAGE 


LOC 

OBJ 

u.INE 

SOURCE 

STATEMENT 

0131 

07 

161 

0132 

03 

162 

BB 

EE/6EH  ,0.-3 

0133 

of". 

0134 

00 

0 1  35 

03 

0136 

00 

163 

BB 

3U / 78H / 0B4H > 3 

0137 

••’8 

0138 

84 

017? 

013A 

03 

02 

164 

DB 

EU i 38H / OBOH / 5 

0 1  3? 

38 

0 1 3C 

BO 

0 1  373 

05 

165 

0 1 3  E 

03 

1  6  6 

DB 

EE  •  7CH  f  OACH • 3 

013F 

7C 

0140 

AC 

0141 

03 

0 1  4 .'! 

00 

167 

OB 

SU>7EH>0CCH/3 

0143 

7E 

0144 

c  c 

0145 

03 

0  1  40 

02 

168 

DB 

EU  •43H>0F*4H.>5 

0147 

43 

0 1  4  8 

1*4 

0149 

05 

169 

01 4  A 

03 

170 

BB 

EE»81H»0»3 

01  4? 

81 

014C 

00 

014H 

03 

0 1 4  E 

00 

171 

DB 

SU/33M/90H/3 

01  4f* 

83 

0150 

90 

0 1  5  1 

03 

0152 

02 

172 

OB 

EUf 4CH/0BCH/5 

0153 

4C 

0154 

BC 

0155 

05 

173 

0156 

OE 

174 

DB 

EX  .•  0 » 0  •  0 

0157 

00 

0  3  58 

00 

0159 

00 

0 1  5  A 

08 

1.75 

DB 

HO » 0 » 0 1 0 

015B 

00 

01513 

00 

0151* 

00 

015F. 

rr 

1.76 

DB 

STOP 

177 


13 


2  78 

179  ;  4-f ++♦+++ ++4-++++++4-++'f ++♦+++ 

180  I  STORE  TOOL#!  FROM  NEUTRAL 

181  H7 :  DB  ML/7CH,34H,5 


015F  05 


I3IS-II  8080/8085  MACRO  ASSEMBLER/  04.0 


EPROMW 


LOC 

OBJ 

LINE 

SOURCE 

STATEMENT 

0160 

7C 

0161 

34 

0162 

05 

182 

0163 

00 

183 

DB 

SU/6QH/84H/3 

01  64 

68 

0165 

34 

0 1  66 

03 

0167 

02 

104 

DB 

EU/22H/74H/5 

0168 

~)n 

0169 

74 

016A 

05 

0  3  oB 

04 

185 

DB 

WU/83H/50H/3 

016C 

31 

03  6B 

50 

016E 

03 

186 

016F 

01 

187 

DB 

SL/3BH/7CH/7 

0170 

BB 

0171 

7C 

017;! 

07 

188 

017:5 

03 

1.89 

DB 

EE >  6EH/0/3 

0174 

6E 

0175 

00 

0176 

03 

01.77 

00 

190 

DB 

SU/73H/0B4H/3 

0178 

78 

0179 

B4 

017A 

03 

03.7B 

02 

191 

DB 

EU/3BH/OBOH/5 

0 1 7C 

38 

0  3  7B 

BO 

017E 

05 

1.92 

017r* 

03 

193 

DB 

EE/7CH/0ACH/3 

0 1  80 

7C 

0131 

AC 

oi8;.' 

03 

0133 

00 

194 

DB 

SU/7EH/0CCH/3 

03  84 
0185 

7E 

CC 

03  86 

03 

0187 

02 

195 

DB 

EU/43H/0B4H/5 

03  88 

43 

0139 

B4 

0  IGA 

05 

196 

0J.8B 

03 

197 

DB 

EE/81H/0/3 

013C 

81 

>>18n 

00 

018E 

03 

oier 

00 

198 

DB 

SU/83H/90H/3 

0170 

83 

019) 

90 

IS is;— II  BCC0/B0B5  MACRO  A3ScMRl.HR t  04. 0 
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LOC 

OBJ 

LINE 

SOURCE 

STATEMENT 

0192 

03 

o i  93 

02 

1  99 

J/B 

EU»4CH/0BCH»5 

0t9'» 

4C 

01  "5 

t'C 

0196 

05 

200 

0197 

OE 

201 

DB 

EX / 0 ; 0  / 0 

i  o  (i 

00 

0199 

00 

0190 

00 

0198 

08 

202 

DB 

O 

o 

o 

o 

*■»- 

0!  9C 

00 

01911 

00 

0  3  9E 

00 

019F 

FF 

203 

DB 

STOP 

204 

205  /PUSH 

TOOL  *1 

IN  AFTER  STORING 

01.00 

03 

206  H8  : 

DB 

EE/83M/90M/3 

01.01 

33 

05  a;: 

01.03 

90 

03 

0104 

02 

207 

DB 

EU /  4CH>  OBCH  / 5 

0105 

4C 

0  3  06 

BC 

0107 

05 

03  0(3 

03 

208 

DB 

EE / 7EH  >  OCCH / 3 

0109 

7E 

0  3  00 

CC 

0 1  OB 

03 

03  OC 

02 

209 

DB 

EL'/43H/OB4M.»5 

0100 

43 

oi  or. 

R4 

01AF 

05 

23  0 

01  BO 

03 

211 

DB 

EE/7AH/74H/3 

0 1  H 1 

70 

0182 

74 

01  il  3 

03 

01B'« 

09 

212 

DB 

MC / 0  / 0 / 0 

0  1  R5 

00 

01.86 

00 

01  H  7 

00 

01.88 

02 

213 

DB 

EU  / 3CM t 1GH/  5 

03  R  9 

3C 

01  BO 

18 

01  BB 

05 

01.  BC 

04 

214 

DB 

WU / 79H/ OCOH/ 3 

OlfcD 

79 

01.  BE 

CO 

01  RF 

03 

215 

01C0 

03 

23  6 

DB 

EE  .•  7CH  i  OFBH  1 3 

01C1 

7C 

oi  c:; 

FB 

0  IC3 

03 

ii. 
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ISIS- 11  8080/8085  MACRO  ASSEMBLER*  U4 . 0 


i_OC 

OBJ 

LINE 

01C4 

00 

217 

01C5 

7D 

0 1  C«i 

F'E 

01C7 

03 

OJCB 

02 

23  8 

oic? 

41 

01  CA 

1  A 

01CB 

05 

219 

01  cc 

03 

220 

OS  CD 

70 

01CE 

00 

01  Cr 

03 

01D0 

FF 

22 1 

'no 

OlDt 

FF 

223  H9 

0 1  D2 

FF 

01 D3 

FF 

03  BA 

FF 

01D5 

FF 

224 

225 

226 

SOURCE  ST  "MENT 
1>B  SU/7DM/0F8H/3 

DB  EU/41M*14H,S 

DB  EE/70H/0/3 

DB  STOP 

DB  OFFH ; OFFH / OFFH  *  OFFH 

BB  STOP 

END 


PUBLIC  SYMBOLS 

HO  o  0000 

HI 

D  0015 

H2 

D  0072 

H3 

D  0087 

H4  B  00A8 

HS 

L'  00D5 

H.i 

d  oi  oe 

H7 

D  01  5F 

MS  0  01 AO 

H9 

D  01D1 

EXTERNAL  SYMBOLS 


USER  SYMBOLS 

EE  A  0003 

EU 

A  0002 

EX 

A  OOOE 

HO 

D 

0000 

HI  0  0015 

M2 

D  0072 

M3 

B  0087 

H4 

D 

0008 

H5  B  00D5 

H6 

D  03  0E:. 

M7 

D  01  5F 

HB 

D 

01  AO 

H9  li  O'IDl 

MC 

A  0009 

HO 

A  0008 

SL 

A 

0001 

STOP  A  OOFF 

SU 

A  0000 

ML 

A  0005 

MU 

A 

0004 

ASSEMBLY  COMPLETE/  NO  ERRORS 
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EE 

20 1 

50 

54 

58 

62 

69 

i  t  ■: 

]  43 

3  62 

3  oo 

1.70 

3  81 

2  08 

211 

216 

220 

EPROMW 

] 

EU 

19* 

34 

47 

52 

56 

6C 

*3 

1  09 

1  12 

117 

128 

3  5- 

172 

184 

191 

195 

199 

207 

EX 

25* 

7  3 

3  74 

20) 

HO 

11 

32* 

HI 

1  1 

42# 

H2 

11 

77* 

H3 

1  1 

39* 

H4 

11 

104* 

h;; 

1  '» 

124* 

H6 

12 

149* 

H7 

12 

183* 

H3 

12 

206* 

H9 

3  2 

223* 

HC 

2  4* 

70 

212 

HO 

23* 

43 

175 

2  o  2 

SL 

18# 

33 

44 

66 

39 

?t 

’  4  9 

160 

187 

STOP 

27* 

37 

72 

34 

99 

US 

221 

224 

3U 

17* 

32 

46 

5 1 

55 

5‘ 

1  11 

1  16 

3  27 

153 

1  56 

J  Cf« 

190 

194 

198 

217 

Wl. 

'12  5 

36 

42 

67 

90 

9' 

137 

140 

150 

181 

rfU 

21  * 

35 

48 

94 

98 

10 

135 

L38 

141 

152 

158 

is; 

CROSS 

REFERENCE  COMPLETE 

A3M80  :Ft:£XECN.ASY  XREF  PAGEMIDTH (72) 

I3IS--II  80G0/0085  MACRO  ASSEMBLER /  V4.0  EXECW  PAGE  1 

I.OC  OBJ  LINE  SOURCE  STATEMENT 

1  NAME  EXECW 

2 

3  /PROGRAMMERS  C.  MORRIN 

4  /VERSION  2 . ON 

5  /DATE  OF  LAST  CHANGE:  OCTOBER  31/  1977 

6 

S 

9  PUBLIC  RTCAD/MUXAD/RELAY1 /RELAY2 

10  PUBLIC  EXEC/ INTAD/START1 /USRT 

11  PUBLIC  DIRFLG/ ARELAY /OVRFLG/STATE 

12  PUBLIC  PR ADD / OP INFO / WFLAG / POTFLG 

13  PUBLIC  FINAL/CUTOFF  zDISPFG/TAD 

14  PUBLIC  COUNT / STOPFG 

1.5  EXTRN  WAIT  /WAIT! 

16  EXTRN  INPUT / OUTPUT /INPT1 

17 

18 

19  DSEG 

20 

21  / ***«******tt»*****ft«*******tt«*»»»»*»**»***»***** 

22  /'SYSTEM  OUTPUT  PORT  DEFINITION: 


23 

; OUTPUT 

PORTS 

ARE  MEMORY 

MAPPED : 

F700 

24 

RTCAD 

EQU 

0F900H  ; 

8253 

REAL  TIME 

CLOCK 

r  400 

25 

MUXAD 

EQU 

0F400H  ; 

MULTIPLEXER/  A/D  CONTROL 

FDOO 

26 

RELAY1 

EQU 

OFDOOH  f RELAY 

CONTROL 

F500 

27 

RELAY2 

EQU 

0F500H  ; 

RELAY 

CONTROL 

FCOO 

28 

INTAD 

EQU 

OFCOOH  / 

8259 

INTERRUPT 

CONTRQLLE 

F800 

29 

USRT 

EQU 

0F800H  ; 

8251  USART  ADDRESS 

30 

31 

;*##  #  »»**»*  »  »»  *»  #  »**  »fttt  *  ####**  #*  #  **  »  *#  ##  **  *#  #  * 

32 

/SYSTEM 

MEMORY 

DEFINITION: 

FOOO 

33 

DIRFLG 

EQU 

OFOOOH 

JSEE 

OPERAT 

F'OOl 

34 

ARELAY 

EQU 

DIRFLG+1 

/SEE 

RELAY 

F003 

35 

OVRFLG 

EQU 

ARELAY+2 

?  SEE 

OPERAT 

F  004 

36 

STATE 

EQU 

QVRFLG+1 

/SEE 

INPUT 

F006 

37 

PRADD 

EQU 

STATE+2 

/'SEE 

PROGRM 

F008 

38 

OP INFO 

EQU 

PRADD+2 

JSEE 

PROGRM 

F016 

39 

WFLAG 

EQU 

OPINFQ+14 /SEE 

DELAY 

F01  7 

40 

POTFLG 

EQU 

WFLAG+1. 

JSEE 

DACQ 

F019 

41 

FINAL 

EQU 

POTFLG+2 

/SEE 

OPERAT 

F01B 

42 

CUTOFF 

EQU 

FINAL+2 

JSEE 

OPERAT 

F01D 

43 

DISPFG 

EQU 

CUTOFF+2 

/’SEE 

OPERAT 

FOIE 

44 

TAD 

EQU 

DISPFG+1 

JSEE 

PROGRM 

F020 

45 

COUNT 

EQU 

TAD+2 

/'SEE 

OPERW 

F021 

46 

STOPFG 

EQU 

COUNT  4- 1 

JSEE 

OUTPUT 

47 

/'STOPFG 

IS  1  BYTE 

49 

;»»»»»»« 

»*»*»»**»* 

50 

J OUTPUT 

MESSAGES: 

0000  2050524F 

0 1 
52 

OTABLE  s 

DB 

'  PROGRAM®?  0PERATF.-0' 

0004  4732414D 


ISIS- II  8000/8085  MACRO  ASSEMBLER  /  04 . 0  EXECW  PACE 


LOC 

OBJ 

LINE 

SOURCE 

STATEMENT 

0008 

3D50204F 

oooc 

50455241. 

0010 

54453D4F 

001  4 

20524 4 2A 

53 

OTABLl. 

:  DB 

'  RD*POTS»R  DISPLAYED' 

0018 

504F5453 

001  C 

3D522044 

0020 

4953504C 

0024 

4 1.593D44 

0014 

54 

LTABLE 

EQU 

20 

0014 

55 

LTABL1. 

EOU 

20 

56 

57 

;*#*«***»»*»»**»»#»**«*«**«*«******»«****#*****» 

58 

59 

CSEG 

60 

61 

1EXEC 

ROUTINE: 

62 

/EXEC 

PROVIDES 

A  WAITING  PLACE  WHEN  NEEDED 

0000 

F3 

63 

EXEC: 

DI 

0001 

2101FC 

64 

LXI 

H/INTAD+1 

0004 

7F. 

65 

MOV 

A/M 

0005 

E6DF 

66 

ANI 

ODFH 

0007 

77 

67 

MOV 

M/.A 

0008 

FB 

68 

El 

0009 

00 

69 

NOP 

OOOA 

00 

70 

NOP 

OOOD 

00 

71 

NOP 

OOOC 

C30000  C 

72 

JMP 

EXEC 

73 

74  i 

75 

76  /INITIALIZATION  ROUTINE 

77 

70  1THIS  ROUTINE  INITIALIZES  ALL  HARDWARE 

79  1  AND  SOFTWARE  INCLUDING: 

80  ?  8080  STACK  POINTER 

81  J  8251  USRT 

82  »  8253  REAL  TIME  CLOCK 

83  /  8255  DATA  ACQUISTION  INTERFACE 

84  f  8255  RELAY  INTERFACE 

85  /  8259  INTERRUPT  CONTROLLER 

86  ?  STATE 

87  /  PRADD 

88  f  OP  INFO  (HYPHENS  AND  SPACES  ONLY) 

89  /  OVRFLG  (OPERAT  ROUTINE) 

90  5  HAND  CONTROLLER  DISPLAY 

91  ; 

92  / INITIAL  ROUTINE  INITIALIZES  AFTER  A 

93  J  POWER  ON  RESET  OR  A  SOFTWARE  RESET. 

94  18253  USES  COUNTER  0  TO  DIVIDE  THE  2MHZ  CLOCK  TO 

95  1  19  KHZ  TO  DRIVE  COUNTERS  )  AND  2  PLUS  THE  USRT 

96  *1  COUNTER  1  IS  THE  RTC.  COUNTER  2  IS  NOT  USED. 

97  ? 

98  18255  DATA  ACOUISTION  INTERFACE  INPUTS  A/D  DATA 

99  1  ON  PORTS  A  AND  B.  IT  CONTROLS  THE  A/D  START 


59 
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ISIS- II  9080/8085 

MACRO 

ASSEMBLER/  04. 
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”~1 

! 

i 

[ 

1 

1, 

f 

LQC 

OBJ 

LINE 

SOURCE 

STATEMENT 

v  1 

100 

;  AND 

THE  MULTIPLEXORS  ON  PORT  C. 

i 

101 

; 

102 

/ALL  EXCEPT  RXRDY  ARE  MASKED 

103 

; 

104 

1VECT0R  ROUTINE  VECTORS  INTERRUPTS  FROM  8259  TO 

i 

105 

/PROPER  SUBROUTINES 

r 

106 

107 

;exec 

PROVIDES 

A  WAITING  PLACE  WHEN  REQUIRED 

i 

108 

> 

109 

ASEG 

110 

, 

0000 

111 

ORG 

OH 

( 

0000 

F3 

112 

START! 

DI 

113 

114 

{STACK 

POINTER 

INITIALIZATION! 

0001 

31FFF0 

115 

LXI 

SP / OFOFFH 

116 

f 

117 

/*8253 

<REAL  TIME  CLOCK)  INITIALIZATION 

0004 

2103F9 

118 

LXI 

H/RTCAD+3 

0007 

3616 

119 

MVI 

M/16H  )RTC#0  *  MODE  3/LSB  ONLY 

0009 

3670 

120 

MVI 

M/70H  )RTC#1  »  MODE  0 

000B 

36AA 

121 

MVI 

M/OAAH  1RTC#2  *  MODE  5 /MSB  ONLY 

OOOD 

2100F9 

122 

LXI 

H/RTCAD 

0010 

366A 

123 

MVI 

M/106  1RTC#0  =  19.32  KHZ 

j 

124 

JNOTEs 

RTC#1 

SET  BY  DELAY  ROUTINE  (WAIT) 

125 

; 

RTC#2 

NOT  USED 

* 

126 

127 

18255 

<1/0  PORT)  INITIALIZATION 

0012 

2103F4 

128 

LXI 

H/MUXAD+3 

129 

1 PORTS 

A«.B  *  INPUT  (A/D) 

0015 

3692 

130 

MVI 

M/92H 

131 

1P0RT 

C  =  OUTPUT  (MUX /A/D) 

132 

0017 

C30F00 

C 

133 

JMP  START2 

134 

135 

1 ****ft***«t»**ftftft****»»ft#ft»»**»**»****»**»******» 

136 

137 

/THE  FOLLOWING 

TABLE  IS  CALLED  BY 

138 

/THE  8259  INTERRUPT  CONTROLLER 

.  i 

139 

140 

ASEG 

141 

i 

0020 

142 

ORG 

2  OH 

i 

* 

0020 

C9 

143 

RET 

\ 

i 

144 

1 

0024 

145 

ORG 

24H 

* 

0024 

C9 

146 

RET 

i 

147 

0028 

148 

ORG 

28H 

0020 

C9 

149 

RET 

150 

002C 

151 

ORG 

2CH 

002C 

C9 

152 

RET 

153 

0030 

J  54 

ORG 

30H 

i. 
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LOC 

OBJ 

LINE 

SOURCE 

STATEMENT 

0030 

C9 

155 

RET 

ITXRDY 

INTERRUPT 

156 

0034 

157 

ORG 

34H 

0034 

F3 

158 

DI 

0035 

C30000 

E 

159 

JMP 

INPUT 

1RXRDY 

INTERRUPT 

160 

0038 

161 

ORG 

38H 

0038 

F3 

162 

DI 

0039 

C30000 

E 

163 

JMP 

HAITI 

;rtci 

INTERRUPT 

164 

003C 

165 

ORG 

3CH 

003C 

C9 

166 

RET 

1RTC2 

INTERRUPT 

167 

168  1 

169 

170  1 INITIALIZATION  ROUTINE  (CONTINUED) 

171 

172  CSEG 

173 


174 

, +++++++++++ 

+  +  4-  4- + + ♦ + +  + +  +  -f  +  +  «f  +  +  4- + 4*  + +  + +  + +  +  -f  4-  ♦  +  +  4-  +■  4- 

175 

18255  RELAY 

PORT  INITIALIZATION: 

OOOF 

3E80 

176 

START2J  MV I 

A /BOH 

0011 

3203FD 

177 

STA 

RELAY! +3  /ALL  PORTS  =  OUTPUT 

0014 

3F.00 

178 

MVI 

A/0 

0016 

3202FD 

179 

STA 

RELAY! +2  /TURN  OFF  RELAYS 

180 

181 

;♦♦♦♦♦♦♦♦♦♦♦♦♦♦  ■*■  +  «•■♦•■*■■*•  •*■+  +  ■►■••  +  +  +  +  +  ■<•  •*■  +  ■*■  +  ■»■++  +  ♦  +  ■*■•♦■  +  +  +  ♦ 

182 

18259  (INTERRUPT  CONTROLLER)  INITIALIZATION 

0019 

2100FC 

183 

LX  I 

H/INTAD 

001  C 

3636 

184 

MVI 

M/36H  lICMl:  INTERVAL- 4/ 

185 

1  START  AT  XX20H 

001E 

23 

1B6 

I  NX 

H 

001F 

3600 

187 

MVI 

M/0 

188 

1ICH2S  START 

AT  OOXXH 

0021 

36DF 

189 

MVI 

M/ODFH 

190 

10CW1 :  MASK 

ALL  BUT  RXRDY  (USRT) 

0023 

2B 

191 

OCX 

H 

0024 

3684 

192 

MVI 

M/84H 

193 

10CH2  «  INPUT 

HAS  HIGHEST  PRIORITY 

194 

195 

;  ♦+♦+++++♦+++♦♦+♦+♦+♦+♦ «■ ♦♦♦  «•♦++++ 

196 

18251  (USRT) 

INITIALIZATION 

0026 

2101F8 

197 

LXI 

H/USRT+1 

0029 

3641 

198 

MVI 

M/41H  1 IF  1ST /  SET  MODE-ASYNC 

199 

1  IF  2ND/  RESET 

002B 

3601 

200 

MVI 

M/01H  1  IF  2ND/  HARMLESS 

201 

1  IF  1ST /  SET  MODE-ASYNC 

002D 

3640 

202 

MVI 

M/40H  12ND:  RESET  8251 

002F 

367A 

203 

MVI 

M/7AH  /MODE  *  1  STOP  BIT/ 

204 

1EVEN  PARITY 

/  PARITY  ENABLE/  7  BIT  CHARACTER/ 

205 

1  16X  CLK 

0031 

3617 

206 

MVI 

M/17H  1  COMMAND  *  NO  HUNT/ 

207 

1  NO  RESET/  1 

NO  RTS/  ERROR  RESET/ 

208 

1  NO  BREAK  CHAR/  RECIEVE  ENABLE/ 

209 

1 ENABLE  DATA 

TERMINAL  READY  (DTR  -  LON) z 

61 
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0043  3E00 
0045  3203F0 


005E  210000 
0061  22O4F0 


0064  21.07F0 
0067  36F1 


210 

211 

212 

213 


1  TRANSMIT  ENABLE 

} ♦•*•++•*■♦ ++♦♦+++++++++++++++++++++++++++++++++++++ 
} INITIALIZE  OPINFO  TABLE 


0033  3E20 

214 

MV  I 

A/'  ' 

0035  3208F0 

215 

STA 

OPINFO 

0038  320BF0 

216 

STA 

0PINF0+3 

003B  3E2D 

217 

MV  I 

A/ 

003D  320EF0 

218 

STA 

0PINF0+6 

0040  3213F0 

219 

STA 

OPINFO+11 

220 

221 

222 

223 

224 

225 

226 
227 


/INITIALIZE  OVRFl.G 
MV  I  A/0 

STA  QVRFLG 


UNITIALIZE  HAND  CONTROLLER  DISPLAY 


0048 

211400 

D 

228 

LXI 

M/0TABL1 

004B 

0E14 

229 

MV  I 

C/LTABL1 

004D 

CDOOOO 

E 

230 

CALL 

OUTPUT  1'  RD#POTS-R  DISPLAYED' 

0050 

01204E 

231 

LXI 

8/20000 

0053 

CDOOOO 

E 

232 

CALL 

WAIT  /WAIT  1  SECOND 

0056 

210000 

D 

233 

LXI 

H/OTABLE 

0059 

OEM 

234 

MVI 

C/LTABLE 

005B 

CDOOOO 

E 

235 

CALL 

OUTPUT  > '  PROGRAM=P  OPERA TE=0' 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 


UNITIALIZE  STATE 

LXI  H/INPT1 

SHLD  STATE 

++++++++ 

/ INITIALIZE  PRADD 

LXI  H/PRADD+1 1 INITIALIZE  PRADD 

MV I  M/0F1H  1 PROGRAM  MEMORY  -  FIXXH 


UNITIALIZE  DISPFG 


0069 

3A1DF0 

249 

LDA 

DISPFG 

006C 

FEOO 

250 

CPI 

0 

006E 

CAOOOO 

C 

251 

JZ 

EXEC  l DISPFG  RESET 

0071 

FEOF 

252 

CPI 

OFH 

0073 

CAOOOO 

c 

253 

JZ 

EXEC  f DISPFG  SET 

254 

1DISFLG  NEEDS 

INITIALIZATIONS 

0076 

3E00 

255 

MVI 

A/0 

0078 

321 DFO 

256 

STA 

DISPFG 

257 

;no  diagnostics  during  operation 

007B 

C30000 

c 

258 

JMP 

EXEC 

259 

260 

261 

1 SOFTWARE  RESET  » 

007E 

01F401 

262 

START 1 i  LXI 

B/500 

0081 

CDOOOO 

E 

263 

CALL 

WAIT 

264 

/WAIT  2 SMS  FOR 

THE  8251  TO  FINISH  TRANSMITTING 

ISIS-II  8000/8085  MACRO  ASSEMBLER;  04.0 


EXECW 


PAGE 


1.0C 

OBJ 

LINE 

O 

O 

CO 

> 

C30000 

265 

266 

267 

PUBLIC 

SYMBOLS 

ARELAY 

A 

F001 

COUNT 

A 

F020 

DISPFG 

A 

F01D 

EXEC 

C 

0000 

MUX  AD 

A 

F400 

OP INFO 

A 

F008 

PRADD 

A 

F006 

RELAY 1 

A 

FDOO 

START1 

C 

00  7E 

STATE 

A 

F004 

USRT 

A 

FBOO 

HFLAG 

A 

F016 

EXTERNAL 

SYMBOLS 

INPT1 

E 

0000 

INPUT 

E 

0000 

HAITI 

E 

0000 

USER  SYMBOLS 

ARELAY 

A 

FOO! 

COUNT 

A 

F020 

DISPFG 

A 

F01D 

EXEC 

C 

0000 

INPUT 

E 

0000 

INTAD 

A 

FCOO 

MUXAD 

A 

F400 

OP INFO 

A 

F008 

OUTPUT 

E 

0000 

OVRFLG 

A 

F003 

RELAY1 

A 

FDOO 

RELAY2 

A 

F500 

START!. 

C 

007E 

START2 

C 

OOOF 

TAD 

A 

FOIE 

USRT 

A 

F800 

WF1.AG 

A 

F016 

SOURCE  STATEMENT 
JMP  START 
END 


CUTOFF 

A 

F01B 

DIRFLG 

A 

FOOO 

FINAL 

A 

F019 

INTAD 

A 

FCOO 

OVRFLG 

A 

F003 

POTFLG 

A 

F017 

RELAY2 

A 

F500 

RTCAD 

A 

r  900 

STOPFG 

A 

F021 

TAD 

A 

FOIE 

OUTPUT 

E 

0000 

WAIT 

E 

0000 

CUTOFF 

A 

F01B 

DIRFLG 

A 

FOOO 

FINAL 

A 

F019 

INPT1 

E 

0000 

LTABL1 

A 

0014 

LIABLE 

A 

0014 

QTABL1 

D 

0014 

OTABLE 

D 

0000 

POTFLG 

A 

F017 

PRADD 

A 

F006 

RTCAD 

A 

F900 

START 

A 

0000 

STATE 

A 

F004 

STOPFG 

A 

F021 

WAIT 

E 

0000 

WAIT1 

E 

0000 

ASSEMBLY  COMPLETE;  NO  ERRORS 


ISIS- II  ASSEMBLER  SYMBOL  CROSS  REFERENCE*  02.1 


PA  OF. 


ARELAY 

11 

34* 

35 

COUNT 

14 

45* 

46 

CUTOFF 

13 

42* 

43 

DIRFl.B 

11 

33* 

34 

BISPFG 

13 

43* 

44 

EXEC 

10 

63* 

72 

EXECW 

1 

FINAL 

13 

41* 

42 

INPT1 

16 

239 

INPUT 

16 

159 

INTAD 

10 

28* 

64 

LTABL1 

55# 

229 

LTABLE 

54* 

234 

MUXAB 

9 

25* 

1.28 

OP INFO 

12 

38* 

39 

0TABL1 

53* 

228 

OTABLE 

52* 

233 

OUTPUT 

16 

230 

235 

OORFLG 

11 

35* 

36 

POTFl.G 

12 

40* 

41 

PRADD 

12 

37* 

38 

RELAY  1 

9 

26* 

177 

RELAY2 

9 

27* 

RTCAD 

9 

24* 

118 

START 

112* 

265 

START! 

10 

262* 

START2 

133 

176* 

STATE 

11 

36* 

37 

STOPFG 

14 

46* 

TAD 

13 

44* 

45 

USRT 

10 

29* 

197 

WAIT 

15 

232 

263 

HAITI 

15 

163 

WFl.AG 

12 

39* 

40 

CROSS  REFERENCE  COMPLETE 


249  256 

251  253  258 

183 

215  216  218  219 

224 

244 

129 

122 

240 
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ISIS- IT  3080/8085  MACRO  ASSEMBLER /  V4.0  INPUT  PAGE  1 


LOC 

OBJ 

LINE 

SOURCE 

STATEMENT 

1 

NAME 

INPUT 

2 

3 

/PROGRAMMER! 

C.MORRIN 

4 

5 

6 
7 

3 

9 

/VERSION  2.0 
/DATE  OP  LAST 

CHANGE:  NOVEMBER  2/  1977 

;*##«*««#*#«#####*#***#*####*##**#******#*#*#*## 

CSEG 

10 

1 1 

PUBLIC 

INPUT / I NPT 1 / ERROR /EXIT 

12 

PUBLIC 

ASCHEX / ASCHX1 

13 

EXTRN 

PROGR / OPER / DI SP / RDPOT / ATTR I B 

14 

E'XTRN 

INTAD/USRT, STATE /HAIT 

15 

EXTRN 

HF.XASC/XMIT/ START! 

16 

17 

/ a##################*###*####*#####*#*###*##*### 

18 

19 

1USART  RECEIVER  INTERFACE  ROUTINE: 

20 

21. 

J INPUT  IS  CALLED  BY  THE  8259  INTERRUPT  CONTROLLE 

r» 

72 

/WHEN  THE  8251 

RXRDY  STATUS  LINE  INDICATES  THAT 

23 

24 

25 

/'A  CHARACTER  HAS  BEEN  RECEIVED. 

/USRT  RECEIVER 

READY/  JUMP  TO  ENTRY  POINT 

26 

1 INDICATED  BY 

ADDRESS  POINTER  “STATE': 

OOOO 

3A0100 

E 

27 

INPUT!  LDA 

USRT+1  /GET  STATUS 

0003 

E63B 

28 

ANI 

3BH  /MASK  FOR  ERROR  FIELD 

0005 

C21400 

C 

2? 

JNZ 

ERR 

0008 

2A0000 

E 

30 

LHl.D 

STATE 

OOOB 

3A0000 

E 

31 

LDA 

USRT  /GET  DATA 

OOOE 

FE1A 

32 

CPI 

l.AH  /’CONTROL  7." 

0010 

CAOOOO 

E 

33 

JZ 

START1 

0013 

F.9 

34 

PCHL 

35 

36 

/  +■*■+■*■•*■+++■*•++++ 

■*■  +  +■*•++  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  + 

00 1 4 

3A0100 

E 

37 

ERR!  LDA 

USRT+1  /GET  STATUS  AGAIN 

0017 

E601 

38 

ANI 

1  /MASK  ALL  BUT  TXRDY 

001? 

C21400 

C 

3? 

JNZ 

ERR 

40 

/WAIT  UNTIL  DATA  BUS  BUFFER  IS  EMPTY 

41 

/*<IT  HILL  BE  FULL  IF  TRANSMITTER  IS  GOING) 

00 1C 

3F17 

42 

MV  I 

A  / 1  7H 

OOIE 

320100 

E 

43 

STA 

USRT+1  /RESET  8251  ERROR  FLAGS 

0021 

3A0000 

e 

44 

LDA 

USRT  /CLEAR  RECEIVER 

0024 

019001 

45 

LXI 

B/400 

0027 

cnoooo 

E 

46 

CALL 

WAIT 

002A 

3A0000 

E 

47 

LDA 

USRT  /CLEAR  RECEIVER  AGAIN 

002H 

C34900 

c 

48 

JMP 

ERROR 

4? 

r.A 

JV 

51 

/PROGRAM/  OPERATE/  DISPLAY/  OR  READ  POTS? 

0030 

FF.50 

52 

INPT1 :  CPI 

SOM  /COMPARE  WITH  »P» 

0032 

CAOOOO 

E 

53 

JZ 

PROGR 

65 


A 


ISIS-11  8080/8085  MACRO  ASSEMBLER*  V4.0 


INPUT  PAGE 


LOC 

OBJ 

LINE 

SOURCE 

STATEMENT 

0035 

FF.4F 

54 

CPI 

4FH 

/COMPARE 

WITH  '0' 

0037 

CAOOOO 

E 

55 

JZ 

OPER 

003A 

F  E44 

56 

CPI 

'D' 

003C 

CAOOOO 

E 

57 

JZ 

DISP 

/ JUMP  TO 

DISPLAY  ROUTINE 

003F 

FF.52 

58 

CPI 

'R' 

0041 

CAOOOO 

E 

59 

JZ 

RDPOT 

0044 

FE41 

60 

CPI 

'A' 

0046 

CAOOOO 

E 

61 

JZ 

ATTRIB 

O  W. 

63 

3 

++ +++++■ n 

64 

/INCORRECT  INPUT*  IGNORE 

INPUT  & 

AND  RING  BELL: 

0049 

3E07 

65 

ERROR:  MV I 

A*  7H 

/RING  BELL 

0041) 

cnoooo 

E 

66 

CALL 

XMIT 

004E 

C35400 

C 

67 

JMP 

EXIT+3 

0051  1120000 
0054  F3 


0055  IE 65 
0057  320000 
005A  FB 
005B  C? 


/all  routines  which  are  indirectly  called 

*  BY  INPUT  RETURN  TO  EXIT  TO  END  THE  INTERRUPT: 
EXITS  SHLD  STATE  ;SET  NEW  STATE 

DI 

*8259  MUST  RECEIVE  END  OF  INTERRUPT  BEFORE 
) ALLOWING  INPUT  ROUTINE  TO  BE  CALLED  AGAIN: 

MU  I  A  *65H  * 0CW2 :  END  OF  INPUT  INT 

STA  INTAD 

El 
RET 


3 

/ASCII  TO  HEXADECIMAL  CONVERSION  ROUTINES. 

/ALL  ROUTINES  START  AND  END  WITH  DATA  IN  ACC 
/ASCHEX  =••  ASCII  TO  HEX  (HEX:  LOWER  HALF  ACC) 

3 ASCHX1  =  ASCII  TO  HEX  (HEX:  UPPER  HALF  ACC) 

/NOTE:  ASCII  TO  HEX  CONVERSIONS  ALSO  TRANSMIT 
*  CHARACTER  TO  USRT  (XMIT) 


005C 

CD6800 

C 

92 

ASCHEX : 

CALL 

005F 

C? 

93 

RET 

94 

0060 

CD6800 

C 

95 

ASCHX1 : 

CALL 

00o3 

07 

96 

RLC 

0064 

07 

97 

RLC 

0065 

07 

98 

RLC 

0066 

07 

99 

RLC 

0067 

C9 

1.00 

RET 

101 

102 

0068  C5 


/DATA  ROUTINE  HANDLES  ROUTINE  INPUT  OF 
/HEXADECIMAL  DATA  IN  ASCII  FORMAT. 
/DATA  CONVERTS  TO  HEX  AND  THEN 
/ECHOS  BY  CONVERTING  THE  HEX  CODE 
/BACK  INTO  ASCII. 

DATA:  PUSH  B 


66 
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INPUT 


PAGE 


l.OC 

OBJ 

LINE 

0069 

PE30 

109 

006B 

DA9500 

C 

no 

006 E 

FE3A 

111 

0070 

DA8900 

c 

112 

0073 

FE41 

113 

0075 

DA9500 

c 

114 

0078 

FE47 

115 

007A 

DA8700 

c 

116 

007D 

FE61 

117 

007F 

DA9500 

c 

118 

0082 

FE67 

119 

0084 

D29500 

c 

120 

0087 

C609 

121 

0089 

E60F 

122 

008B 

47 

123 

008C 

CDOOOO 

E 

124 

008F 

CDOOOO 

E 

125 

0092 

78 

126 

0093 

Cl 

127 

0094 

C9 

128 

129 

130 

0095 

Cl 

131 

0096 

Fi 

132 

133 

134 

0097 

FI 

135 

136 

0098 

C34900 

c 

137 

138 

139 

1  «0 

141 

JP.l.IC 

SYMBOLS 

SOURCE  STATEMENT 


CPI 

30H 

JC 

RETURN 

CPI 

3AH 

/  '9 '  +  1 

JC 

NUMBER 

CPI 

4 1H 

/•'A' 

JC 

RETURN 

CPI 

47H 

; 'F'  +  i 

JC 

LETTER 

CPI 

61H 

/SMALL  'A' 

JC 

RETURN 

CPI 

67H 

/SMALL  'F'  +  1 

JNC 

RETURN 

ADI 

9 

AN1 

OFH 

MOV 

B/A 

CALL 

HEX  1C 

CALL 

XMI  i 

MOV 

A/B 

POP 

B 

RET 

-++++++ 

POP 

♦+++++++■♦• 

B 

+  +  +  +  +  +  ♦.  +  +  +  +  *  +  ♦+  + 

POP 

PSW 

1P0P  RETURN  ADDRESS 

/THIS  RETURN  ADDRESS  SHOULD  BE  ASCHEX+3 
/OR  ASCHX1+3 

POP  PSW  ?P OP  RETURN  ADDRESS 

/THIS  RETURN  ADDRESS  SHOULD  BE  =■-  INPTXX+3 
JMP  ERROR 

/HOPEFULLY  INPTXX  DID  NOT  PUSH  ANYTHING 


END 


ASCHEX 

C 

005C 

ASCHX1 

C 

0060 

ERROR 

C 

0049 

EXIT 

C 

0051 

INPT1 

C 

0030 

INPUT 

C 

0000 

EXTERNAL 

SYMBOLS 

ATTRIB 

E 

0000 

DISP 

E 

0000 

HEXASC 

E 

0000 

INTAD 

E 

0000 

OPER 

E 

0000 

PROGR 

E 

0000 

RDPOT 

E 

0000 

START 1 

E 

0000 

STATE 

E 

0000 

USRT 

E 

0000 

WAIT 

E 

0000 

XMIT 

E 

0000 

USER  SYMBOLS 

ASCHEX 

C 

005C 

ASCHX1 

C 

0060 

ATTRIB 

F. 

0000 

DATA 

C 

0068 

DISP 

E 

0000 

ERR 

C 

0014 

ERROR 

C 

0049 

EXIT 

c 

0051 

HEXASC 

E 

0000 

INPT1 

c 

0030 

INPUT 

C 

0000 

INTAD 

F. 

0000 

LETTER 

C 

0087 

NUMBER 

c 

0089 

OPER 

E 

0000 

PROGR 

E 

0000 

RDPOT 

E 

0000 

RETURN 

c 

0095 

START 1 

E 

0000 

STATE 

F. 

0000 

USRT 

£ 

0000 

HAIT 

E 

0000 

XMIT 

E 

0000 

ASSEMBLY  COMPLETE/  NO  ERRORS 
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PAGE 


ASCHEX 

12 

92* 

ASCHX1 

12 

95* 

ATTRIB 

13 

61 

DATA 

92 

95 

108* 

BI3P 

13 

57 

ERR 

29 

37* 

39 

ERROR 

11 

48 

65* 

1.37 

EXIT 

11 

67 

72* 

HEXASC 

IS 

124 

INPT1 

11 

52* 

INPUT 

1 

11 

27* 

INTAD 

14 

77 

LETTER 

116 

121* 

NUMBER 

112 

122* 

OPER 

13 

S5 

PROGR 

13 

53 

RDPCIT 

13 

S9 

RETURN 

110 

114 

118 

120 

131* 

START! 

IS 

33 

STATE 

14 

30 

72 

USRT 

14 

27 

31 

37 

43 

44  47 

WAIT 

14 

46 

XMI 7 

IS 

66 

1.25 

CROSS  REFERENCE  COMPLETE 
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ISIS-II  8080/3085  MACRO  ASSEMBLER/  V4 . 0  OPERW  PAGE  1 

LOC  OBJ  LINE  SOURCE  STATEMENT 

1  NAME  OPERN 

o 

3  /‘PROGRAMMER!  C.  MORRIN 

4  /VERSION  2.0W 

5  /DATE  OF  LAST  CHANGE:  NOVEMBER  3/  1977 

7  ;»####*#  **»#»#########*#*######*###########*#### 

8 


9 

CSEG 

10 

11 

PUBLIC 

OPER / ATTRIB / PROMT 

12 

EXTRN 

ERROR zEXIT/XMIT/INTAD 

13 

EXTRN 

OP I NFO / MUXAD / ASCHEX / ASCHX1 

14 

EXTRN 

OUTPUT /PRADD/DISPFG /WAIT 

15 

EXTRN 

GETDAT / FINAL / CUTOFF / START1 

16 

EXTRN 

SETMUX/RSTART/RST0P/BIRF1.G 

17 

EXTRN 

OVRFLG / DPRQGM / DRSULT / COUNT 

18 

EXTRN 

H0/H1/H2/H3/M4 

19 

EXTRN 

H5/H6/H7/H8/H9 

20 

21 

22 

23 

DSEG 

24 

25 

/OUTPUT 

MESSAGE 

TABLE: 

0000 

204F5045 

26 

0TAB1 i 

DB 

'  OPF.R»AD=*' 

0004 

322A4144 

0008 

3D 

0009 

20474F20 

27 

0TAB2  s 

DB 

'  GO  -  G' 

OOOD 

3D2047 

0010 

20324E44 

28 

8TAB3! 

DB 

'  2ND  MISS:  ABORT  PROG' 

0014 

204D4953 

0018 

333A2041 

ooi  c 

424F5234 

0020 

2050524F 

0024 

47 

0025 

20464952 

79 

0TAB4! 

DB 

'  FIRST  MISS' 

0029 

5354204D 

002D 

495353 

0030 

204F5045 

30 

0TAB5  s 

DB 

'  0PER#D1SP?  YES  OR  NO' 

0034 

322A4449 

0038 

53503F20 

003C 

59455320 

0040 

4F52204E 

0044 

4F 

0045 

205B5945 

31 

C1TAB6! 

DB 

'  LYES3  ' 

0049 

535D20 

004C 

20SB4E4F 

32 

C1TAB7 : 

DB 

'  LN03  ' 

0050 

5D20 

33 

0009 

34 

LTAB1 

EQU 

9 

0007 

35 

I.TAB2 

EOU 

7 

0013 

36 

LTAB3 

EQU 

21 

OOOD 

37 

LTAB4 

EQU 

11 

69 
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LINE  SOURCE  STATEMENT 


0015 

0007 

0006 


0052  0000  E 
0054  0000  E 
0056  0000  E 
0058  0000  E 
005A  0000  E 
005C  0000  E 
005E  0000  E 
0060  0000  E 
0062  0000  E 
0064  0000  E 


0066  7 A 00  D 
0068  8900  D 
006 A  9800  D 
006C  A700  D 
006E  B600  D 
0070  C500  D 
0072  0400  I) 
0074  E300  D 
0076  F-200  D 
0078  0101  0 


007A  53544E57 
007E  20204041 
0082  4E 495055 
0086  4C5452 
0089  474F2054 
008D  4F202Q20 
0091  544E4E4C 
0095  202331 
0098  4 04 P 564 5 
009C  20202046 
OOAO  524E4D20 
00A4  424F58 
00A7  474F2054 
OOAB  4F202020 
OOAF  2C424954 
00B3  202331 
00B6  474F2054 
OOBA  4F20574F 
OOBE  524B204 1. 
00C2  524541 
00C5  53544F52 
00C9  45202020 


38  LTAB5  EQU  21 

39  I.TAB6  EQU  7 

40  LTAB7  EQU  6 

41 

42  »**«*»*«**#»***imi**#***»**»»**i 

43 

44  1  PROM  ADDRESS  TABLE: 

45  F'ROMTi  DM  HO/HI  /H2/H3/H4 


46  DM  H5  *  H6  *  H7 » HQ  *  H9 


47 

49 

50  1  ADDRESS  TABLE  FOR  TOOL  NAMES 

51  OUT ADD:  DM  TOOLOO/TOOLOl /T00L02/T00L03 


52  DM  TOQL04  r  T00L05  » TQQL06/ T0QL07 


53  DM  T00L08*  T00L09 

54 

55  /TOOL  NAMES 

56  TOOLOO:  DB  'STOM  MANIPULTR' 


57  T00L01  :  DB  'GO  TO  TOOL  11' 


58  T00L02 :  DB  'MOVE  FROM  BOX' 


59  TOOL03 »  DB  'GO  TO  BIT  tl* 


60  TOOL04-:  DB  'GO  TO  HORK  AREA' 


61  T00L05:  DB  'STORE  BIT  tl' 


70 
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CIPERW 
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LGC  OBJ  LINE  SOURCE  STATEMENT 

OOCD  20421954 
OOIU  202331 

00D4  12195423  62  T00L06 :  DB  'BIT#1  TO  TQ0L41 ' 

001)8  31  20544F 
O0DC  20544F4F 
OOFO  4C2331 

00E3  53544F52  63  T0QL07:  DB  'STORE  TOOL  #1' 

OOE7  45202020 
OOEB  544F4F4C 
OOEF  202331 

00F2  50555348  64  T0QL08:  DB  'PUSH  TOOL  *1' 

OOF 6  20202020 
OOFA  544F4F4C 
OOFE  202331 

OlOt  54525920  65  TOOL09:  DB  'TRY  AGAIN' 

0105  20202020 
0109  20204147 
01 OD  41494E 

66 

67  ;##»***»*»#»*####*#»#*»*#»*##**##*##*###*#****** 

68 

69  /LINKAGE  MANIPULATOR  INTERFACE  ROUTINE 

70 

71  / THIS  ROUTINE  OPERATES  SOLENOID  VALUES  ONLY 

72  /’THERE  IS  NO  PROVISION  FOR  MULTIPLE  VALVE 

73  /OPERATION 

74  /(WILL  NOT  OPERATE  WSP  LINEAR  EXTEND) 

75 

76  /THIS  ROUTINE  DOES  THE  FOLLOWING: 

77/1.  DETERMINE  WHETHER  ARM  IS  WITHIN  DEADBAND/ 

78  /'  ABOVE  DEADBAND/  OR  BELOW  DEADBAND. 

79  /'2.  IF  WITHIN  DEADBAND/  CHANGE  PROGRAM  COUNTER/ 

80  5  AND  GO  TO  STEP  1. 

81  53.  IF  OUTSIDE  DEADBAND/  STORE  SHUTOFF  POSITION 

82  I  IN  REG  BCz  TURN  ON  APPROPRIATE  SOLENOID  AND 

83  /  COMPARE  A/D  DATA  TO  REG  BC. 

84  5  WHEN  SHUTOFF  POSITION  IS  REACHED/ 

85  5  TURN  OFF  ALL  SOLENOIDS. 

86  /-4.  WAIT  FOR  AN  APPROPRIATE  PERIOD/ 

87  5  THEN  CHECK  AGAIN. 

88  55.  IF  0TAB30CT  OCCURS/  TRY  ONCE  MORE. 

89  56.  IF  A  SECOND  0TAB300T  OCCURS/  OPERATOR  IS 

90  5  NOTIFIED  AND  OPERATION  ABORTED. 

91  57.  IF  WITHIN  DEADBAND/  DISPLAY  RESULTS. 

92  ?8.  CHECK  FOR  END  OF  PROGRAM/  AND  EITHER 

93  /  INCREMENT  PROGRAM  OR  STOP. 

94 

95  CSEG 

96 

98  /'OPERATE  MODE/  REQUEST  ADDRESS  INFORMATION: 


0000 

210000 

D 

99  C1PER : 

LXI 

H/0TAB1  5 'OPERATE  ADDRESS= ' 

0003 

0E09 

100 

MV  I 

C/LTAB1 

0005 

CDOOOO 

E 

101 

CALL 

OUTPUT 

0008 

210E00 

C 

102 

LXI 

H/0PER1  /CALL  0PER1  NEXT 

71 
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LOC 

OBJ 

LINE 

SOURCE 

STATEMENT 

OOOB 

C30000 

E 

1.03 

JMP 

EXIT 

104 

105 

;  +  +  +  +  ♦  +  4-  +  +  +++  -M- ++ ++++  + 

106 

/OPERATE  MODE. 

FIRST  ADDI 

OOOE 

320100 

E 

107 

0PER1. : 

STA 

OPINFQ+1 

0011 

FE2A 

108 

CPI 

0013 

CA2700 

C 

109 

JZ 

EPROM 

0016 

CDOOOO 

E 

110 

CALL 

ASCHX1 

0019 

320000 

E 

111 

STA 

PRADD 

001C 

3EF1 

112 

MV  I 

A.0F1H 

001 E 

320100 

E 

113 

STA 

PRADD+1 

0021 

213000 

C 

114 

l.XI 

H.0PER2 

0024 

C30000 

E 

1.15 

JMP 

EXIT 

116 

117 

•  ++++-M-4-++  4- 

0027 

CDOOOO 

E 

118 

EPROM: 

CALL 

XMIT 

002A 

216600 

C 

119 

LXI 

H.0PER4 

002D 

C30000 

E 

120 

JMP 

EXIT 

1.21 

122 

123 


/ECHO 


; OPERATE  MODE.  SECOND  ADDRESS  DIGIT 


0030 

320200 

E 

.124  QPER2 : 

STA 

QPINFO+2 

0033 

CDOOOO 

E 

125 

CALL 

ASCHEX 

0036 

210000 

E 

126 

LXI 

H. PRADD 

0039 

B6 

1.27 

ORA 

M 

003A 

77 

128 

MOV 

M.  A 

1.29  /OPERATE  ADDRESS  STORED  IN 

003B 

210900 

D 

130  GO: 

LXI 

H.0TAB2 

003E 

0E07 

131 

MV  I 

C.LTAB2 

0040 

CDOOOO 

E 

132 

CALL 

OUTPUT  / ' 

004.* 

214900 

C 

133  GOl: 

LXI 

H.0PER3 

0046 

C30000 

E 

134 

135 

136  /♦♦♦♦++H 

JMP 

EXIT 

•TTTTTTI 

rTTTTTTTTTTT' 

137  /OPERATE  MODE. 

FIRST  ‘GO"  1 

0049 

FE53 

138  QPER3 : 

CPI 

'S' 

004  B 

CAOOOO 

E 

139 

JZ 

START  1 

004E 

FE47 

140 

CPI 

'G' 

0050 

C26000 

C 

141 

JNZ 

TSTOP 

0033  F3 
0034  3F.65 

0056  320000 
0059  FB 
005A  CDDDOO 
005D  C30000 


0060  CDOOOO 
0063  C30000 


c 

c 


E 

E 


142 

143 

144 

145 

146 
1.47 

148 

149 

150 
1.51 

152 

153 

154 

155 

156 

157 


GO=*G' 


COMMAND 


.'OPERATE  MANIPULATOR.  BUT  FIRST  ENABLE 
/HAND  CONTROLLER  (EMERGENCY  STOP) 

DI 

MV I  A.65H 

/0CW2 :  END  OF  INPUT  INTERRUPT 


STA 

El 

CALL 

JHP 


I  NT  AD 

OPERAT 

□PER 


H4-  +  +  +  +  +  + 


/EMERGENCY  STOP  IF  OPERATING. 
/ERROR  MESSAGE  IF  NOT: 

TSTOP »  CALL  RSTOP 

JMP  ERROR 
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LCIC 

OBJ 

LINE 

SOURCE  STATEMENT 

158 

?  4-  -f  4-  4-  4-4- 

4*  4*  4- 4*  4*  4- 4- 4- 

4- 4- 4- 4- 4- 4- 4- 4*  4- 4* 

159 

J HARDWIRED  PROGRAM  MODE/ 

0066 

320200 

E 

160 

0PER4 : 

STA 

0PINF0+2 

0069 

CDOOOO 

E 

161 

CALL 

ASCHEX 

006C 

07 

162 

RLC 

006D 

5  F 

163 

MOU 

E  /  A  / 

006E 

4F 

164 

MOV 

C  /  A 

006F 

0600 

165 

MVI 

B/0 

0071 

215200 

D 

166 

LXI 

H/ PROMT 

0074 

09 

167 

DAD 

B 

168 

JREG  H 

=  PROGRAM  ADDRESS 

0075 

7F. 

169 

MOV 

A  /M  /I 

0076 

320000 

E 

170 

STA 

PRADD  /‘I 

0079 

23 

171 

INX 

M 

007A 

7E 

172 

MOV 

A/M  ;i 

007B 

320100 

E 

173 

STA 

PRADD+-1  ll 

174 

/OUTPUT 

NAME  OF 

TOOL  REQUI 

007E 

210000 

E 

175 

LXI 

H/OPINFO 

0091 

0E04 

176 

MVI 

C/4 

0083 

CDOOOO 

E 

177 

CALL 

OUTPUT  ; 

0086 

3E3D 

178 

MVI 

A/  '  =  ' 

0080 

CDOOOO 

E 

179 

CALL 

XMIT 

008B 

3E20 

180 

MVI 

A/'  ' 

008D 

CDOOOO 

E 

181 

CALL 

XMIT 

0090 

216600 

D 

182 

LXI 

H/OUTADD 

0093 

1600 

183 

MVI 

D/0  >1 

0095 

19 

184 

DAD 

D 

185 

;reg  h 

*  OUTPUT 

ADDRESS 

0096 

5E 

186 

MOV 

E/M 

0097 

23 

187 

INX 

H 

0098 

56 

188 

MOV 

D/M 

0099 

EB 

189 

XCHG 

009A 

OEOF 

190 

MVI 

C/15 

009C 

CDOOOO 

E 

191 

CALL 

OUTPUT 

009F 

C34300 

C 

192 

JMP 

G01 

193 

194 

»*#»*»**»*« 

195 

00A2 

213000 

0 

196 

ATTRIB  s 

LXI 

H/0TAB5 

00A5 

OE 15 

197 

MVI 

C/LTAB5 

00A7 

CDOOOO 

E 

198 

CALL 

OUTPUT  ; ' 

OOAA 

21B000 

C 

199 

LXI 

H/0PER10 

OOAD 

C30000 

E 

200 

JMP 

EXIT 

201 

202 

;  •*■++■*■++ 

f4*4*4-4-4-+4’4 

"4- 4- 4- 4- +4- 4*  4*  4- 4 

DIGIT 


/ SAVE  DIGIT  X  2 


GET 


ADDRESS 
IT  AWAY 

2ND  HALF 
IT  AWAY 


*A 


CONTAINS  DIGIT  X  2 


203  /DISPLAY  DIAGNOSTICS  DURING  OPERATION? 


OOBO 

FE59 

204 

0PER10 *  CPI 

'  Y' 

00B2 

CABDOO 

C 

205 

JZ 

AYES 

00B5 

FE4E 

206 

CPI 

'N' 

OOB7 

CACDOO 

C 

207 

JZ 

AND 

OOBA 

C30000 

E 

208 

JMP 

ERROR 

209 

210 

J +♦•♦■+•«■ ++•*■♦+ 

OOBD 

2)4500 

D 

211 

AYES:  LXI 

H/0TAB6 

OOCO 

0E07 

212 

MVI 

C/LTAB6 

73 
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LOC 

OBJ 

LINE 

SOURCE 

STATEMENT 

OOC2 

CDOOOO 

e 

213 

CALL 

OUTPUT 

i'  YES' 

00C5 

3E0F 

214 

MVI 

A/OFH 

OOC7 

320000 

e 

215 

STA 

DISPFG 

OOCA 

C30000 

E 

216 

21.7 

218 

JMP 

START1 

/  +  4-  +  ♦  ♦  +  ♦  ♦  ♦ +  +  +■ 4-  ♦+  4- +  ♦  ♦  -f  4-  +  ♦  ♦  ♦  +  ♦  + ♦  +  ♦  «f  ♦  «•< +  ♦  ♦  4-  ♦  +  +  +  +  4*  ♦  4- 

oocn 

214C00 

D 

219 

ANOi 

LX1 

H/0TAB7 

OODO 

0E06 

220 

MVI 

C/LTAB7 

00D2 

CDOOOO 

E 

221 

CAl.L 

OUTPUT 

/'  NO' 

00D5 

3E00 

222 

MVI 

A/0 

001)7 

320000 

F. 

223 

STA 

DISPFG 

OODA 

C30000 

E 

224 

JMP 

START1 

225 

226 

;  ***** * II **** *** ****** tf« ******** *********** ***** * 

227 

228 

1 INTIALIZE  MULTIPLEXER 

OODD 

2AOOOO 

e 

229 

OPERAT : 

l.Hl.D 

PRADD 

1 CHECK  FOR  HAND 

OOEO 

7E 

230 

MOV 

A/M 

00E1. 

E60E 

231 

ANI 

OEH 

/MASK 

00E3 

FE08 

232 

CPI 

8 

OOE5 

CAE601 

c 

233 

J2 

HAND 

00E8 

FEOE 

234 

CPI 

OEH 

OOEA 

CAE601. 

c 

235 

JZ 

HAND 

OOED 

CDOOOO 

E 

236 

CALL 

SETMUX 

ISET  MUX  6  HAIT  100 

MS 

oofo 

3A0000 

E 

237 

LDA 

DISPFG 

00F3 

E60F 

238 

ANI 

OFH 

/SET  ZERO  FLAG 

OOFS 

CAFROO 

C 

239 

JZ 

SKIP! 

OOFQ 

CDOOOO 

E 

240 

CALL 

DPROGM 

241 

242 

? IS  DATA  LARGER  THAN  POSITION  ♦  DEADBAND  ? 

OOFB 

CD0002 

C 

243 

SKIP!  : 

CALL 

GETBC 

/BC  «  -<POS*DB> 

OOFE 

CDOOOO 

E 

244 

CALL 

GETDAT 

fHL  "  A/D  DATA 

01  OJ 

09 

245 

DAD 

B 

0102 

DA3901 

C 

246 

JC 

ABOVE 

247 

248 

/IS  DATA  SMALLER  THAN  POSITION  -  DEADBAND  ? 

0105 

CD1 A02 

C 

249 

CALL 

GETBCM 

JBC  =  - <POS- DB> 

0108 

2A0000 

E 

250 

AT 

LHLD 

MUXAD 

/•DATA  FROM  PREVIOUS 

GETD 

010B 

09 

251 

DAD 

B 

/HL  *  A/D- (POS-DB) 

010C 

D27301 

C 

252 

JNC 

BELOW 

OlOF 

2A0000 

£ 

253 

LHLD 

MUXAD 

/•WITHIN  DEADBAND 

011.2 

220000 

E 

254 

SHLD 

CUTOFF 

JCUTOFF^FINAL 

0115 

220000 

E 

255 

SHLD 

FINAL 

256 

257 

;  4-+ +++♦+♦++♦++♦+++++++++++++++++++++ 

258 

/END  OF 

OPERAT  ROUTINE: 

259 

> DISPLAY  RESULTS/  INCREMENT  PROGRAM  ADDRESS 

260 

; DETERMINE  IF 

END  OF  PROGRAM  HAS  BEEN  REACHED. 

0118 

3E00 

261 

ENDQP « 

MVI 

A/0 

01  1 A 

320000 

E 

262 

STA 

OVRFLG 

011D 

3A0000 

E 

263 

LDA 

DISPFG 

0120 

F.6or 

264 

ANI 

OTH 

{SET  ZERO  FLAG 

0122 

CA2801 

C 

265 

JZ 

SKIP2 

0 1  25 

CDOOOO 

e: 

266 

CALL 

DRSULT 

74 
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LOC 

OBJ 

LINE 

SOURCE 

STATEMENT 

0128 

2A0000 

E 

267  SKIP2 : 

LHLD 

PRADD 

/‘GET  PROGRAM  ADDRESS 

012B 

1.10400 

268 

LXI 

D/4 

{INCREMENT  PROGRAM 

012E 

19 

269 

DAD 

D 

012F 

220000 

E 

270 

SHLD 

PRADD 

0132 

7E 

271 

MOV 

A/M 

0133 

F.6F  0 

272 

AMI 

OFOH 

{GET  END  OF  PROGRAM  FLAG 

0135 

CO 

273 

RNZ 

0136 

C3DD00 

C 

274 

JMP 

OPERAT 

0139  3E01 
013B  320000 
01.3E  CDOOOO 
0141  CD3602 
01  44  cnoooo 
0147  2AOOOO 
01.4 A  220000 


014D  011027 
0150  CDOOOO 


0153  CD0002 
0156  21 FOFF 
015?  0? 

01. 5  A  44 
015B  4D 
01  5C  CDOOOO 
015F  0? 

0160  DADDOO 


0163  CD1A02 
0166  CDOOOO 
0169  220000 
01 6C  09 
016D  D2AD01 


f OPERATE  MANIPULATOR:  A/D  DATA  IS  LARGER. 


E  280 
C  281 
E  282 
E  283 
E  284 

285 

286 
287 

E  288 

289 

290 
C  291 

292 

293 

294 

295 
E  296 


E  302 
E  303 


ABOVE :  MV I 
STA 
CALL 
CALL 
CALL 
LHLD 
SHLD 


A/1 

DIRFLG 

RSTART 

RUN 

RSTOP 

MUXAD 

CUTOFF  /SAVE  FOR  DRSUl.T 


/OPERATION  COMPLETE/  WAIT  FOR  ARM  TO  STOP 
LXI  B/ 10000  /'WAIT  .5  SECOND 
CALL  WAIT 

/CHECK  FOR  BAD  POT  READING : 

CALL  GETBC 

LXI  H/OFFFOH 

DAO  B 

MOV  B/M 

MOV  C/L 

CALL  GET DAT 

DAD  B 

JC  OPERAT 

/ IF  OK/  CHECK  FOR  OVERSHOOT: 


GETBCM 
GET DAT 
FINAL 
B 

OVRSHT 


1BC  *  - (PQS-DB) 

/HI.  «*  A/D  DATA 
/•SAVE  FOR  DRSULT 
/HI.  -•  A/D-CPOS-DB) 


0170  C31801 


/‘MANIPULATOR  IS  WITHIN  DEADBAND. 
JMP  ENDOP 


3E00 

320000 

CDOOOO 

CD6502 

CDOOOO 

2A0000 

220000 


0137  011027 


311  ) OPERATE  MANIPULATOR:  A/D  DATA  SMALLER. 

312  BELOW:  MV I  A/0 

E  313  STA  DIRFLG 

E  314  CALL  RSTART 

C  315  CALL  RUNM 

E  316  CALL  RSTOP 

E  317  LHLD  MUXAD 

E  318  SHLD  CUTOFF 

319 

320  1 OPERATION  COMPLETE/  WAIT  FOR  ARM  TO  STOP 

321  LXI  B/10000  /WAIT  .5  SECONDS 


75 
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LOC 

OBJ 

LINE 

SOURCE 

STATEMENT 

01  BA 

CDOOOO 

E 

322 

CALL 

HAIT 

323 

324 

1 CHECK  FOR  BAD  POT  READING: 

018D 

CD1A02 

C 

325 

CALL 

GETBCM 

0190 

211000 

326 

LXI 

H/0010H 

0193 

09 

327 

DAD 

B 

01  94 

44 

328 

MOV 

B/H 

0193 

4D 

329 

MOV 

C/L 

0196 

CDOOOO 

E 

330 

CALL 

GETDAT 

0199 

09 

331 

DAD 

B 

019A 

D2DD00 

C 

332 

JNC 

OPERAT 

333 

334 

1  IF  OK/  CHECK 

FOR  OVERSHOOT: 

019D 

CD0002 

c 

333 

CALL 

GETBC  ;BC  *  - (PQS+DB) 

01A0 

CDOOOO 

E 

336 

CALL 

GETDAT  )HL  -  A/D  DATA 

01A3 

220000 

E 

337 

SHLD 

FINAL  /‘SAVE  FOR  DRSULT 

01A6 

09 

338 

DAD 

B  /HL  -  A/D  -  (POS+DB) 

01A7 

DAAD01 

c 

339 

JC 

OVRSHT 

340 

341 

/MANIPULATOR 

IS  HITHIN  DEADBAND. 

01AA 

C31801. 

c 

342 

JMP 

ENDOP 

343 

344 

/+++♦++♦♦+■►+•►+♦■♦■+■*•  ♦++++++++++  +  4-  ++-M- ■♦•♦■*■ +♦♦♦♦•*•■*•■♦■+  + 

345 

J MANIPULATOR 

MISSED  DEADBAND  REGION 

01  AD 

3AOOOO 

E 

346 

QVRSMT :  LDA 

OVRFLG 

01B0 

E6FF 

347 

ANI 

OFFH 

01.82 

C2B301 

C 

348 

JHZ 

0VRSH1 

349 

350 

/MISSED  ON  FIRST  ATTEMPT/  NOTIFY 

351 

/OPERATOR  AND 

TRY  AGAIN 

01B5 

3F.01 

352 

MVI 

A/1 

01B7 

320000 

E 

353 

STA 

OVRFLG 

01  PA 

3A0000 

E 

354 

LDA 

DISPFG 

01BD 

E60F 

355 

ANI 

OFH 

01  »F 

CADDOO 

C 

356 

JZ 

OPERAT 

01C2 

CDOOOO 

E 

357 

CALL 

DPROGM 

01  CS 

CDOOOO 

E 

358 

CALL 

DRSULT 

01C3 

212500 

D 

359 

LXI 

H/0TAB4 

01  CD 

or.op 

360 

MVI 

C/LTAB4 

OICD 

CDOOOO 

E 

361 

CALL 

OUTPUT  FIRST  MISS' 

01  DO 

C3DD00 

C 

362 

JMP 

OPERAT 

363 

364 

;  +♦ ++♦•♦■'♦■+++++ 

♦  4-  +  4'++++  +  -f-»-  +++4-  +  +  ++++++++-«-  +  ++++  +  +  +  + 

365 

/MANIPULATOR 

HAS  MISSED  TWICE/ 

366 

/ABORT  OPERATION 

01D3 

3600 

367 

0VRSH1 1  MVI 

M/0 

oi  ns 

CDOOOO 

E 

368 

CALL 

DPROGM 

01D8 

CDOOOO 

E 

369 

CALL 

DRSULT 

01  DB 

211000 

D 

370 

LXI 

H/0TAB3 

01DE 

0E1S 

371 

MVI 

C/LTAB3 

01  EO 

CDOOOO 

E 

372 

CALL 

OUTPUT  / '2ND  MISS:  ABORT  PROG' 

01E3 

C30000 

E 

373 

JMP 

3TART1 

374 
373  ; 


01E6  3A0000  E  376  HAND :  LDA  DISPFG 


76 
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l.CIC 

OBJ 

LINE 

SOURCE 

STATEMENT 

01E9 

E60F 

377 

AN  I 

OFH 

OILS 

CAF101 

C 

378 

JZ 

SKIP3 

OlEE 

CDOOOO 

E 

379 

CALL 

DPROGM 

OIF  1 

CDOOOO 

E 

380 

SK1P3J 

CALL 

RSTART 

01F4 

01FFFF 

381 

LXI 

B/OFFFFH 

01F7 

CDOOOO 

E 

382 

CALL 

WAIT 

JWAIT  3  SEC 

OlFA 

CDOOOO 

E 

383 

CALL 

RSTOP 

01 FD 

C32801 

C 

384 

JMP 

SKIP2 

385 

386 

)«*»#»»**»#*«**«tt*»*tt*«tt***»tt*****»»***»ft*«fttt»** 

387 

0200 

2A0000 

E 

388 

GET8C  s 

LHl.D 

PRADD 

0203 

23 

389 

INX 

H 

/ (REG  HL)  *  DATA  (HIGH) 

0204 

46 

390 

MOV 

B/M 

0205 

23 

391 

INX 

H 

0206 

4F. 

392 

MOV 

C/M 

0207 

23 

393 

INX 

H 

/'(REG  HL)  *  DEADBAND 

0208 

5E 

394 

MOV 

E  »M 

0209 

1600 

395 

MV  I 

D/0 

/DE  =  DEADBAND 

396 

J DEADBAND  HAS 

TO  BE  SHIFTED  4  PLACES: 

020B 

EB 

397 

XCHG 

020C 

29 

398 

DAD 

H 

/LEFT  SHIFT  REG  HL 

0200 

29 

399 

DAD 

H 

020E 

29 

400 

DAD 

H 

020F 

29 

401 

DAD 

H 

0210 

09 

402 

DAD 

B 

/HL  =■  POS+DB 

403 

fA  CARRY  MERE  TS 

AN  ERROR 

0211 

3E00 

404 

MV  I 

A/0 

0213 

95 

405 

SUB 

L 

0214 

4F 

406 

MOV 

C/A 

0215 

3E00 

407 

MV  I 

A/0 

0217 

9C 

408 

SBB 

H 

0218 

47 

409 

MOV 

B/A 

IBC  *  -(POS+DB) 

0219 

C9 

410 

RET 

411 

4)2 

;#»»»*#»**##****#««#«***#*»*»#«**»»»«»  «*#«*#***»* 

413 

021A 

2A0000 

E 

414 

GETBCMs 

LHl.D 

PRADD 

0210 

23 

415 

INX 

H 

021  E 

23 

416 

INX 

H 

021F 

3E00 

417 

MV  I 

A/0 

0221 

96 

418 

SUB 

M 

0222 

4F 

419 

MOV 

C/A 

0223 

2B 

420 

DCX 

H 

0224 

3E00 

421 

MV  I 

A/0 

0226 

91' 

422 

SBB 

M 

0227 

47 

423 

MOV 

B/A 

?BC  »  -POS 

0228 

23 

424 

INX 

H 

0229 

23 

425 

INX 

H 

022A 

5E 

426 

MOV 

E/M 

022B 

1600 

427 

MV  I 

D/0 

0220 

i:b 

428 

XCHG 

/Ml.  =•-  DB/4 

022E 

29 

429 

DAD 

H 

022F 

29 

430 

DAD 

H 

0230 

29 

431 

DAD 

H 

tl 
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0231 

29 

432 

DAD 

H 

/HI.  =•- 

DB 

0232 

0? 

433 

DAD 

B 

JHL  = 

-(POS-DB) 

0233 

44 

434 

MOV 

B/M 

0234 

4D 

435 

MOV 

C/L 

0235 

C? 

436 

RET 

/  BC  - 

-(PtIS-DB) 

437 

438  J ft********************************************** 

43?  J*  REAL  TIHE  OPERATION  ROUTINES  * 

440  /ft********************************************** 

441 

447  iRF.G  B  -  POSITION  INFORMATION 

443  /REG  D  =  ADDRESS  OF  SINGLE  BIT  COMMAND  FOR  A/D 

444  /REG  H  =■  A/D  DATA  &  DIFFERENCE 

445 


0236 

1 10300 

E 

446 

RUN:  LXI 

D/MUXAD+3 

023? 

3E00 

447 

MV  I 

A/0 

0233 

320000 

E 

448 

STA 

COUNT 

023E 

3E01 

44? 

RUNl:  MV I 

A/1 

450 

451 

ISET  A/D  START 

BIT  HIGH: 

0240 

12 

452 

STAX 

D  / (7  CYCLES) 

0241 

3D 

453 

OCR 

A  /‘  (5  CYCLES) 

454 

455 

;a/d  converter 

READY/  GET  DATA: 

0242 

2A0000 

E 

456 

LHl.D 

MUXAD 

457 

/‘PRIOR  TO  DATA 

READ:  <10  CYCLES) 

458 

/TIME  TO  READ 

DATA:  (6  CYCLES) 

45? 

460 

/RESET  A/D  START  BIT  LOW  (STARTS  A/D) 

0245 

12 

461 

STAX 

D  / <7  CYCLES) 

0246 

09 

462 

DAD 

B  ><10  CYCLES) 

0247 

DA5702 

C 

463 

JC 

CNTDN  >  <10  CYCLES) 

024A 

3A0000 

t: 

464 

LDA 

COUNT 

024D 

3C 

465 

I  NR 

A 

024F. 

320000 

E 

466 

STA 

COUNT 

0251 

FEOA 

467 

CPI 

10 

0253 

C23E02 

C 

468 

JNZ 

RUNl 

0256 

C? 

46? 

RET 

0257 

3A0000 

E 

470 

CNTDN :  LDA 

COUNT 

025A 

3D 

471 

OCR 

A 

0253 

D25F02 

C 

472 

JNC 

CNTDN1 

025E 

77 

473 

SUB 

A  ;dont  want  minus  numbers 

025F 

320000 

E 

474 

CNTDN1 :  STA 

COUNT 

0262 

C33E02 

C 

475 

JMP 

RUNl 

474 

477  JDATA  READ  TIME  I  13  CYCLES  OR  7  MICROSECONDS 

478 

47?  /CONVERSION  TIME:  47  CYCLES  OR  23  MICROSECONDS 

480 

481  > TOTAL  TIME:  60  CYCLES  OR  30  MICROSECONDS 

482 


0265 

110300 

E 

483  /»**»*< 

484 

485  RUNM : 

»»#»»**< 

LXI 

D/MUXAD+3 

0268 

3F.00 

486 

MV  I 

A/0 

78 
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026A  320000  E 
0261)  3E0) 

026F  12 
0270  3D 

0271  2A0000  E 

0274  12 
0275  09 

0276  D2B602  C 

0279  3A0000  E 

027C  3C 

0270  320000  E 

0280  EEOA 
0282  C26D02  C 

0285  C9 

0286  3A0000  E 

0289  3D 

028A  D28E02  C 

028D  97 

028E  320000  E 

0291  C36D02  C 

0294  C9 


487 

STA 

COUNT 

488 

RUNMl s 

MUI 

A/1 

489 

STAX 

D 

490 

DCR 

A 

491 

LHLD 

MUXAD 

492 

STAX 

D 

493 

DAD 

B 

494 

JNC 

CNTDNM 

495 

LDA 

COUNT 

496 

I  NR 

A 

497 

STA 

COUNT 

498 

CPI 

10 

499 

JNZ 

RUNMl 

500 

RET 

501 

CNTDNM ! 

LDA 

COUNT 

502 

DCR 

A 

503 

JNC 

CNTl 

504 

SUB 

A 

505 

CNTl: 

STA 

COUNT 

506 

JMP 

RUNMl 

507 

RET 

509  ;^HH*»HHHHH*^HHH^»^*^»•**»»*******,‘******'Hn***,**,‘***,** 

510  /#  END  REAL  TIME  OPERATION  ROUTINES  * 

311  J  »#»#IHM»#«»*«H*»#I*»#»#»*#**»*»»**»*»»*********** 

51.2 

513  END 


PUBLIC  SYMBOLS 

ATTRIB  C  00A2 

OPER 

C 

0000 

PROMT 

D 

0052 

EXTERNAL  SYMBOLS 
ASCHEX  E  0000 

ASCHX1 

E 

0000 

COUNT 

E 

0000 

CUTOFF 

E 

0000 

DIRFl.G  E  0000 

DISPFG 

E 

0000 

DPROGM 

F. 

0000 

DRSULT 

E 

0000 

ERROR  E  0000 

EXIT 

E 

0000 

FINAL 

E 

0000 

GETDAT 

E 

0000 

HO  E  0000 

HI 

E 

0000 

H2 

E 

0000 

H3 

E 

0000 

H4  E  0000 

H5 

E 

0000 

H6 

E 

0000 

H7 

E 

0000 

H8  E  0000 

H9 

E 

0000 

INTAD 

E 

0000 

MUXAD 

F. 

0000 

OPINFO  E  0000 

OUTPUT 

E 

0000 

OVRFLG 

E 

0000 

PRADD 

E 

0000 

RSTART  V.  0000 

RSTOP 

E 

0000 

SETMUX 

E 

0000 

START! 

E 

0000 

WAIT  E  0000 

XMIT 

E 

0000 

USER  SYMBOLS 
ABOVE  C  0139 

AND 

C 

OOCD 

ASCHEX 

E 

0000 

ASCHX1. 

E 

0000 

ATTRIB  C  00A2 

AYES 

C 

OOBD 

BELOH 

C 

0173 

CNTl 

C 

028E 

CNTDN  C  0257 

CNTDN1 

c 

025F 

CNTDNM 

c 

0286 

COUNT 

E 

0000 

CUTOFF  E  0000 

DIRFLG 

E 

0000 

DISPFG 

E 

0000 

DPROGM 

E 

0000 

DRSULT  E  0000 

ENDOP 

c 

0118 

EPROM 

C 

0027 

ERROR 

E 

0000 

EXIT  E  0000 

FINAL 

E 

0000 

GETBC 

c 

0200 

GETBCM 

C 

021 A 

GET DAT  E  0000 

GO 

C 

003B 

G01 

C 

0043 

HO 

E 

0000 

HI  E  0000 

H2 

E 

0000 

H3 

E 

0000 

H4 

E 

0000 

H5  E  0000 

H6 

E 

0000 

H7 

E 

0000 

H8 

E 

0000 

H9  E  0000 

HAND 

C 

01E6 

INTAD 

£ 

0000 

LTAB1 

A 

0009 

LTAB2  A  0007 

LTAB3 

A 

0015 

LTAB4 

A 

OOOB 

LTAB5 

A 

0015 

t 
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LTAB6 

A 

0007 

LTAB7 

A 

0006 

MUXAD 

E 

0000 

CIPER 

C 

0000 

0PER1 

C 

OOOE 

0PER10 

C 

OOBO 

0PER2 

C 

0030 

QPER3 

C 

0049 

0PER4 

C 

0066 

OPERAT 

C 

OODD 

OPINFO 

E 

0000 

0TAB1 

D 

0000 

0TAB2 

D 

0009 

0TAB3 

D 

0010 

0TAB4 

D 

0025 

0TAB5 

D 

0030 

0TAB6 

D 

0045 

0TAB7 

D 

004C 

OUTADD 

D 

0066 

OUTPUT 

E 

0000 

OVRFLG 

E 

0000 

0VRSH1 

C 

01D3 

OVRSHT 

C 

01A0 

PRADO 

E 

0000 

PROMT 

n 

0052 

RSTART 

E 

0000 

RSTOP 

F. 

0000 

RUN 

C 

0236 

RUNl 

c 

023E 

RUNM 

C 

0265 

RUNM1 

C 

026D 

SETMUX 

E 

0000 

SKIP! 

c 

OOFB 

SKIP2 

C 

0128 

SKIP3 

C 

01F1 

START1 

E 

0000 

TOOLOO 

0 

007A 

T00L01 

D 

0089 

TQ0L02 

D 

0098 

T00L03 

D 

00A7 

T00L04 

n 

00B6 

TOOL 05 

D 

00C5 

T00L06 

D 

00D4 

TOOL 07 

D 

00E3 

TOOLOG 

0 

00F2 

TQ0L09 

0 

0101 

TSTOP 

C 

0060 

WAIT 

E 

0000 

XMIT  E  0000 

ASSEMBLY"  COMPLETE,  NO  ERRORS 


ISIS-  II  ASSEMBLER  SYMBOL  CROSS  REFERENCE /  02.1 


ABOVE 

246 

278* 

AND 

207 

219* 

ASCHEX 

13 

125 

161 

ASCMX1 

13 

110 

ATTRIB 

11 

196* 

AYES 

205 

211* 

BELOW 

252 

312* 

CNT1 

503 

505* 

CNTDN 

463 

470* 

CNTDN  1. 

472 

474* 

CNTBNM 

494 

501* 

COUNT 

17 

448 

464 

466 

470 

501 

505 

CUTOFF 

15 

254 

284 

318 

DIRFLG 

16 

279 

313 

DISPFG 

14 

215 

223 

237 

263 

DPROGM 

17 

240 

357 

368 

379 

BRSiULT 

17 

266 

358 

369 

ENDOP 

261* 

308 

342 

EPROM 

109 

1.18* 

ERROR 

12 

156 

208 

EXIT 

12 

103 

115 

120 

1.34 

FINAL 

15 

255 

303 

337 

GETBC 

243 

291 

335 

388* 

GETBCM 

249 

301 

325 

414* 

GETDAT 

15 

244 

296 

302 

330 

GO 

130* 

G01 

133* 

192 

HO 

IQ 

45 

HI 

1.0 

45 

M2 

18 

45 

H3 

10 

45 

M4 

18 

45 

HS 

1.9 

46 

Ho 

19 

46 

H7 

19 

46 

HQ 

19 

46 

H? 

1.9 

46 

HAND 

233 

235 

376* 

INTAD 

12 

147 

LTAB1 

34* 

100 

LTAB2 

35* 

1.31 

LTAB3 

36* 

371 

LTAD4 

37* 

360 

LTAB5 

38* 

197 

LTAB6 

39* 

212 

LTAB7 

40* 

220 

MUX  AD 

13 

250 

253 

283 

317 

OPER 

11 

99* 

150 

C1PER1 

102 

107* 

0PER10 

199 

204* 

0PER2 

1.14 

124* 

0PER3 

133 

138* 

0PER4 

1 19 

160* 

OPERAT 

149 

229* 

274 

298 

332 

OPERW 

1 

OP INFO 

13 

107 

124 

160 

175 

474 

354 

200 

336 


446 

356 
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0TAB1 

26 * 

99 

0TAB2 

27* 

130 

0TA83 

28# 

370 

0TAB4 

39# 

359 

0TAB5 

30* 

196 

OTABo 

31* 

211 

0TA87 

32* 

219 

OUT  ADD 

‘ill 

182 

OUTPUT 

14 

101 

132 

177 

372 

OVRFLG 

17 

262 

346 

353 

OUR SHI 

348 

367* 

OVRSHT 

305 

339 

346* 

PRADD 

I  •! 

111 

1.13 

126 

388 

414 

PROMT 

11 

45* 

1.66 

RSTART 

16 

280 

314 

380 

RSTOP 

16 

155 

282 

316 

RUN 

281 

446* 

RUN  1 

449* 

468 

475 

RUNM 

315 

485* 

RUNM1 

4  88# 

499 

506 

SETMUX 

16 

236 

SKI  PI 

239 

243* 

SKIP2 

265 

267* 

384 

SKIP  3 

378 

380* 

START 1 

15 

139 

216 

224 

TOOL 00 

51 

56* 

T00L01 

51 

57* 

TOO  1.0  2 

51 

58* 

T00L03 

51 

59* 

TOOL. 04 

52 

60* 

T00L05 

52 

61* 

TOOL.  06 

52 

62* 

T00L07 

52 

63* 

T  001.013 

53 

64* 

toolo? 

53 

65* 

TSTOP 

1  A  1 

1.55* 

WAIT 

14 

288 

322 

382 

XMIT 

1  2 

1 18 

1.79 

181 

CROSS  1 

REFERENCE  COMPLETE 

191  198  213  221  361 

1.70  173  22?  267  270 

383 

373 
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I5IS-II  8080/8083  MACRO  ASSEMBLER/  V4.0  OUTPUT  PAGE  1 

t.OC  OBJ  LINE  SOURCE  STATEMENT 

1  NAME  OUTPUT 

r> 

3  ! PROGRAMMER  :  C . MORRIN 
A  ? VERSION  2.0 

3  /DATE  OF  LAST  CHANGE:  OCTOBER  31/  1977 
6 

7  / ***#*#» **##**##»##*##*####*####### #*#####*#»### 

8 


9 

CSEG 

10 

11 

PUBLIC 

DISP / XMIT / HEXASC / HXASC1 

12 

PUBLIC 

OUTF-UT  / DPROGM  /  DRSUl.T  /  FNASC 

13 

EXTRN 

WA I T / EX I T / ASCHEX / ASCHX1 

1  4 

EXTRN 

USRT /0PINF0/PRADD/F1NAL 

13 

EXTRN 

CUTOFF / ERROR / SAVE / START1 

16 

1  *7 

EXTRN 

PROMT /STOPFG 

1  / 

ia 

; *##*##**#*##*#**#*#*#*#*###*###***#*#####*#*#** 

19 

20 

DSEG 

21 

0000 

2046494E 

22 

C1DATA1  : 

DB 

'  FINAL." ' 

0004 

4 1 4C3D 

0007 

20444946 

23 

0DATA2 : 

DB 

/  DIFF-=' 

0  OOB 

463D3D 

OOOE 

20305247 

24 

C1DATA3 : 

DB 

'  PRGM*AD~' 

0012 

4D2A4144 

0016 

3D 

0017 

2043344F 

25 

QDATA4 : 

DB 

'  CTOFF"' 

00  IB 

46463D 

00  IE 

20444953 

26 

0DATA5 : 

OB 

'  DI3P*AD= ' 

0022 

502 A4 144 

0026 

3D 

0027 

20235354 

27 

0DATA6 : 

DB 

'  ♦STEPS- ' 

002B 

4550533D 

002F 

205354 4F 

2B 

0 DAT A 7 : 

DB 

'  STOP  ' 

0033 

3020 

29 

0007 

30 

LDATA1 

EQU 

7 

0007 

31 

LDATA2 

EQU 

7 

0009 

32 

LDATA3 

EQU 

9 

0007 

33 

LDATA4 

EQU 

7 

0009 

34 

LDATA5 

EQU 

9 

0008 

35 

I.DATA6 

EQU 

8 

0006 

36 

LDATA7 

EQU 

6 

37 

38  /  #######*#»#**#»**#  WIHHHHHHUHHH*  *#***»#»#*#  »##### 

39 

40  /•  DISPLAY  PROGRAM  ROUTINE: 

4] 

42  /INPUT  INTERFACE: 

43  /DISPLAY  MODE /  REQUEST  ADDRESS  INFORMATION: 

0035  211E00  D  44  DISP:  LXI  H/0DATA5 

0038  0E09  45  MVI  C/LDATA5 
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003A  CDCFOO 


FE2A 

CA5C00 

320100 

CDOOOO 

320000 

217E00 

C30000 


CALL  OUTPUT 
/INITIALIZE  PRADD: 


003D 

3EF1 

48 

MV  I 

A/OFIH 

003F 

320100 

E 

49 

STA 

PRADB+1 

0042 

214800 

D 

50 

LXI 

H/DISP1 

0045 

C30000 

E 

51 

52 

53  J +++• 

J  HP 

4*+  +  +  +  +  4*  +  +  H 

EXIT 

+  +  +  ♦  +  4*  + 

1'  DI3P#AD= ' 


/CALL  DI3P1  NEXT 


/'DISPLAY  MODE/  FIRST  ADDRESS  DIGIT 
D1SP1 :  CPI  >*• 

JZ  DISP2 

STA  OP1NEO+1. 

CALL  ASCHX1 

STA  PRADD 

LX I  H/DI3P3 

JMP  EXIT 


005C  CDBFOO 
005F  216500 
0062  C30000 


/DISPLAY  HARDWIRED  MEMORY/  CHANGE  PRADD: 
DI3P2 :  CALL  XMIT 

LX I  H/DISP2A 

JMP  EXIT 


/•HARDWIRED  MODE/  2ND  ADDRESS  DIGIT: 


0065 

CDOOOO 

E 

7} 

DISP2AJ  CALL 

ASCHEX 

0068 

07 

72 

RLC 

0069 

4F 

73 

MOV 

C/A 

00<sA 

0600 

74 

MV  I 

B/0 

006C 

210000 

E 

75 

LXI 

H/ PROMT 

006F 

09 

76 

DAD 

B 

77 

/ (REG  H)  CONTAINS  STARTING  ADDRESS 

78 

/GET  STARTING 

ADDRESS? 

0070 

5E 

79 

MOV 

E/M 

0071 

23 

80 

I  NX 

H 

0072 

56 

81 

MOV 

D/M 

82 

/STORE  STARTING  ADDRESS  IN  PRADD! 

0073 

230000 

E 

83 

LXI 

H/PRADD 

0076 

73 

84 

MOV 

M/E 

0077 

23 

85 

INX 

H 

0078 

72 

86 

MOV 

M/D 

0079 

061  T 

87 

MVI 

B/1FH 

0078 

C39A00 

D 

88 

JMP 

D4 

89 

90 

/•+ +■*■+■*■+■♦■■*••*•++«•■*■•*■«•+ +++••■■♦••*■ +«■++++«•+■*•++ 

91 

J DISPLAY  MODE 

/  SECOND  ADDRESS  DIGIT 

007 E 

320200 

E 

92 

DISP3  8  STA 

0PINF0+2 

0081 

CDOOOO 

E 

93 

CALL 

ASCHEX 

0084 

210000 

E 

94 

LXI 

H/PRADD 

0087 

B6 

95 

ORA 

M 

0088 

77 

96 

MOV 

M/A  l PRADD  NOW  CONTAINS 

97 

/ADDRESS  OF  FIRST  PROGRAM  STEP  TO  BE  DISPLAYED 

0089 

212700 

D 

98 

LXI 

H/0DATA6 

008C 

0E08 

99 

MVI 

C/LDATA6 

008E 

CDCFOO 

D 

100 

CALL 

OUTPUT  /'  *STEPS=' 

84 


>13- II  8080/8085 

MACRO 

ASSEMBLER/  V4 

.0 
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LOC 
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LINE 

SOURCE 

STATEMENT 

0091 

219700 

D 

101 

LX1 

H/DISP4 

0094 

C30000 

E 

102 

JMP 

EXIT 

103 

104 

•*■+++  +  + 

+  +  +  +  4-  +  +  +  +++ 

+++  +++++++++++  ++++  +  -f  +++  + 

1.05 

/DISPLAY  MODE 

/  NUMBER  OF 

STEPS 

106 

/DPROGM 

(OUTPUT  MODULE) 

IS  MAIN  ROUTINE 

107 

/FOR  DISPLAY 

MODE.  IT  REQUIRES  ADDRESS 

108 

/IN  PRADD. 

0097 

CDOOOO 

E 

109 

DISP4  : 

CALL 

ASCHEX 

009A 

47 

110 

D4 : 

MOV 

B/A 

009B 

CDECOO 

D 

111 

CALL 

DPROGM 

009E 

C5 

112 

PUSH 

B 

009F 

01204E 

113 

LXI 

B/20000 

00A2 

CDOOOO 

E 

114 

CALL 

WAIT 

/DISPLAY  1  SEC 

00A5 

Cl 

115 

POP 

B 

00A6 

2A0000 

E 

116 

LHLD 

PRADD 

00A9 

110400 

1.17 

LXI 

D/4 

OOAC 

19 

118 

DAD 

D 

OOAD 

220000 

E 

119 

SHLD 

PRADD 

OOBO 

3A0000 

E 

120 

LDA 

3T0PFG 

00B3 

E6FF 

121 

ANI 

OFFH 

/SET  FLAGS 

00B5 

C20000 

E 

122 

JNZ 

START1 

1.23 

/  “STOP" 

FUNCTION  HAS  BEEN  DISPLAYED 

OOBG 

05 

124 

DCR 

B 

00B9 

C29B00 

D 

125 

JNZ 

DISP4+4 

OOBC 

C30000 

E 

126 

JMP 

STAf-Tl 

127 

128  / 


1.29 

130  /TRANSMIT  CHARACTER  ROUTINE: 

131  J CHARACTER  MUST  BE  IN  ACC 

132 


OOBF 

C5 

1.33 

XMIT: 

PUSH 

B 

OOCO 

47 

134 

MOV 

B/A 

00C1 

3A01.00 

E 

1.35 

XMIT1 : 

LDA 

USRT  +  1. 

/GET  USRT  STATUS 

00C4 

E601 

136 

ANI 

1 

/GET  TXRDY  BIT 

00C6 

C AC 100 

D 

137 

JZ 

XMIT1. 

/READY? 

00C9 

78 

138 

MOV 

A/B 

/YES 

OOCA 

320000 

E 

139 

STA 

USRT 

OOCD 

Cl 

140 

POP 

B 

OOCE 

C9 

141 

RET 

142 

144 

145  > OUTPUT  ROUTINE 

146 

147  /THIS  ROUTINE  OUTPUTS  A  BLOCK  OF  DATA 

148  /TO  A  3251  USRT. 

149  JOUTPUT  REQUIRES  THE  F0LL0MINI3: 

150  /’REG  HL  MUST  CONTAIN  BEGINNING  ADDRESS  OF  DATA. 

151  /REG  C  MUST  CONTAIN  LENGTH  OF  DATA  BLOCK. 

152  /’DATA  MUST  BE  IN  ASCII  FORMAT. 

153 

OOCF  F5  15-  OUTPUT:  PUSH  PSH 

OODO  7E  155  MOV  A/M  /GET  NEXT  CHARACTER 
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00D1 

CDBFOO 

D 

156 

CALL 

XMIT  /‘TRANSMIT  IT 

D0D4 

23 

157 

INX 

H 

00D5 

OD 

158 

BCR 

C 

00D6 

C2D000 

D 

159 

JNZ 

OUTPUT+1  /MORE  CHARACTERS? 

00D9 

FI 

160 

POP 

PSW 

OODA 

C9 

161 

RET 

162 

163 

?**ft#******«»**««****»**#***ft*****#»********»*»» 

164 

165 

/HEXADECIMAL 

TO  ASCII  CONVERSION  ROUTINES: 

166 

JALL  ROUTINES 

START  AND  END  WITH  DATA  IN  ACC 

167 

JHEXASC  -  HEX 

TO  ASCII  (HEX:  LOWER  HALF  ACC) 

168 

/HXASC1  =  HEX 

TO  ASCII  (HEX:  UPPER  HALF  ACC) 

169 

OODB 

OF 

170 

HXASCH  RRC 

OODC 

OF 

171 

RRC 

OODD 

OF 

172 

RRC 

CODE 

OF 

173 

RRC 

OODF 

E60F 

174 

HEXASC !  AN I 

OFH 

OOEl 

FEOA 

175 

CPI 

10 

00E3 

B2E900 

D 

176 

JNC 

HEX1 

00E6 

F  630 

177 

ORI 

30H 

00E8 

C9 

178 

RET 

00E9 

C637 

179 

HEX! :  ADI 

37H 

OOEB 

C9 

180 

RET 

181 

182 

183 

184 

/'DISPLAY  PROGRAM  STEP  ROUTINE 

185 

186 

/•THIS  PROGRAM 

USES  THE  PROGRAM  POINTER  PRADD 

187 

/AS  AN  INPUT. 

THE  OUTPUT  IS  THE  CONTENTS  OF 

188 

/PRADD/  AND  THE  CONTENTS  OF  THE  INSTRUCTION 

189 

/POINTED  TO  BY  PRADD. 

190 

1.91 

/THE  FORMAT  OF  THE  OUTPUT  IS: 

192 

/  'PROG*AD=XX' 

193 

/  'FN-DATA- 

DB' 

194 

/*  WHERE  XX  = 

CONTENTS  OF  PRADD 

195 

1  FN  - 

FUNCTION  =•-  (PRADD) 

196 

?  DATA  = 

POSITION  =  (PRADD+1 / +2) 

1.97 

/  DB  = 

DEADBAND  -  (PRADD+3) 

198 

OOEC 

F5 

199 

DPROGM :  PUSH 

PSW 

OOED 

C5 

200 

PUSH 

B 

OOEE 

D5 

201. 

PUSH 

D 

OOEF 

E5 

202 

PUSH 

H 

203 

/GET  PRADD/  CONVERT  TO  ASCII/ 

204 

/•AND  STORE  IN 

0PINF0+1/+2. 

OOFO 

2AOOOO 

E 

205 

LHLD 

PRADD 

00F3 

7D 

206 

MOV 

A/L 

OOF  4 

CDDBOO 

D 

207 

CALL 

HXASC1 

QQF7 

320100 

E 

208 

STA 

OPINFO+1 

OOFA 

7D 

209 

MOV 

A/L 

OOFB 

CDBFOO 

D 

210 

CALL 

HEXASC  /OPINFO+1 / +2  CON 
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LOC 

OBJ 

LINE 

SOURCE 

STATEMENT 

TAINS 

OOFE 

320200 

E 

211 

STA 

QPINFQ+2  /PROGRAM  ADDRESS 

212 

>GET  FUNCTION 

/CONVERT  TO  ASCII/ 

213 

; AND  STORE  IN 

0PINF0+4/+5. 

0101 

7E 

214 

MOV 

A/M 

0102 

FEFO 

215 

CPI 

OFOH 

0104 

D23C01 

D 

216 

JNC 

STOP 

0107 

CDC101 

D 

217 

CALL 

FNASC  /CONVERT  FUNCTION  TO  ASC 

11 

218 

1FNASC  WILL  STORE  ASCII  DATA  IN  GPINF0+4/+5 

219 

220 

/RESET  “STOP  1 

FUNCTION"  FLAG 

010A 

3E00 

221 

MV  I 

A/0 

010C 

320000 

E 

222 

STA 

STOPFG 

223 

224 

1GET  DATA/  CONVERT  TO  ASCII/  AND 

225 

/STORE  IN  0PINF0+7/+8/+-9/  +  10. 

010F 

23 

226 

INX 

H 

0110 

56 

227 

MOV 

D/M 

0111 

23 

228 

INX 

H 

01  12 

5E 

229 

MOV 

E/M 

0113 

EB 

230 

XCHG 

z'HL  =  DATA 

01  14 

CDOOOO 

E 

231 

CALL 

SAVE 

232 

/DATA  STORED 

IN  OPINFQ+7  TO  OPINF0+10 

0117 

EB 

233 

XCHG 

/HI.  =•  (PRADD)  +2 

234 

/GET  DEADBAND 

/  CONVERT  TO  ASCII/ 

235 

/AND  STORE  IN 

0PINF0+1.2/  +  13. 

0118 

23 

236 

INX 

H 

01 1.9 

7E 

237 

MOV 

A/M 

01 1A 

CDDBOO 

D 

238 

CALL 

HXASC1 

Oil  D 

320C00 

E 

239 

STA 

0PINF0+12 

0120 

7E 

240 

MOV 

A/M 

0121 

CDDFOO 

D 

241 

CALL 

HEX  ASC  /0PINF0+1.2/  +  13  C 

ONTAINS 

0124 

320D00 

F. 

242 

STA 

OPINFQ+13  /DEADBAND  DATA 

243 

/OUTPUT  'PRGM#AD=XX  FN-DATA-DB' / 

0127 

210E00 

D 

244 

LXI 

H/0DATA3 

012A 

0E09 

245 

MV  I 

C/LDATA3 

01. 2C 

cdcfoo 

D 

246 

CALL 

OUTPUT  J '  PRGM*AD- ' 

012F 

210100 

E 

247 

LXI 

H/OPINFO+1 

01.32 

ot:on 

248 

MV  I 

C/13 

0134 

CDCFOO 

D 

249 

CALL 

OUTPUT  /•(  PRGM*AD-->  XX  FF-XXXX-X 

0137 

El 

250 

DPI s  POP 

H 

0138 

D1 

251 

POP 

D 

0139 

Cl 

252 

POP 

B 

01  3  A 

FI 

253 

POP 

PSW 

013B 

C9 

254 

RET 

255 

256 

;++++++++++++■ 

+  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  + 

257 

; DISPLAY  PROGRAM  STEP/  FUNCTION^’ STOP" 

013C 

3EFF 

258 

STOP:  MV I 

A/OFFH 

013E 

320000 

E 

259 

STA 

STOPFG 

0141 

210E00 

D 

260 

LXI 

H/0DATA3 

01  44 

0EO9 

261 

MV  I 

C  /l.  DAT  A3 

87 
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I.QC 

OBJ 

LINE 

SOURCE 

STATEMENT 

0146 

CDCFOO 

D 

262 

CALL 

OUTPUT 

0149 

3A0100 

E 

263 

LDA 

OP INF 0+1 

014C 

CDBFOO 

D 

264 

CALL 

XMIT 

014F 

3A0200 

E 

265 

LDA 

0PINF0+2 

0152 

CDBFOO 

D 

266 

CALL 

XMIT 

0155 

21.2F00 

D 

267 

LXI 

H/0DATA7 

0158 

0E06 

268 

mvi 

C/LDATA7 

015A 

CDCFOO 

D 

269 

CALL 

OUTPUT  !'  STOP  ' 

015D 

C33701 

D 

270 

JMP 

DPI 

271. 

272 

»**»»*»**«*«#***#*»*«»*****»***** 

273 

274 

JDRSULT  CALCULATES  THE  ABSOLUTE  VALUE  OF 

275 

/THE  ERROR  (DESIRED  POSITION  -  FINAL  POSITION)/ 

276 

;and  displays 

BOTH  THE  FINAL  POSITION 

277 

/AND  THE  ERROR 

• 

278 

0160 

F5 

279 

llRSULTs  PUSH 

PSW 

0161 

C5 

280 

PUSH 

B 

0162 

E5 

281 

PUSH 

H 

282 

283 

/DISPLAY  CUTOFF  POSITION: 

0163 

2A0000 

E 

284 

LHLD 

CUTOFF 

01  66 

CDOOOO 

E 

285 

CALL 

SAVE 

0169 

211700 

D 

286 

LXI 

H/0DATA4 

01  6C 

0E07 

287 

MVI 

C/LDATA4 

016E 

CDCFOO 

D 

288 

CALL 

OUTPUT  ?'  CTOFF*' 

01 .71 

210700 

E 

2B9 

LXI 

H/QPINFO+7 

0174 

0E04 

290 

MVI 

C/4 

0176 

CDCFOO 

D 

293 

CALL 

OUTPUT 

292 

293 

/DISPLAY  FINAL 

POSITION: 

0179 

2A0000 

E 

294 

LHLD 

FINAL 

01  yc 

CDOOOO 

E 

295 

CALL 

SAVE 

296 

/SAVE  CONVERTS 

FINAL  POSITION  TO  ASCII  AND 

297 

/SAVES  IN  QPINFO+7  TO  OPINFO+IO 

017F 

210000 

D 

298 

LXI 

H/0DATA1 

0182 

0E07 

299 

MVI 

C/LDATA1 

0184 

cncroo 

D 

300 

CALL 

OUTPUT  ?'  FINAL*' 

0187 

210700 

E 

301 

LXI 

H/OPINFO+7 

018A 

0E04 

302 

MVI 

C/4 

013C 

CDCFOO 

D 

303 

CALL 

OUTPUT  ) (FINAL*) 'XXXX' 

304 

305 

/CALCULATE  DIFFERENCE* 

01GF 

K> 

O 

o 

o 

o 

E 

306 

LHLD 

PRADD 

0192 

23 

307 

I  NX 

H 

<  93 

46 

308 

MOV 

B/M 

i.  4 

23 

309 

INX 

H 

OiV5 

4E 

310 

MOV 

C/M 

311 

/GET  A/D  DATA: 

0196 

2A0000 

E 

312 

LHLD 

FINAL  1HL  *  A/D  DATA 

313 

/SUBTRACT: 

019? 

79 

314 

MOV 

A/C 

01  9  A 

95 

315 

SUB 

L 

019B 

6F 

316 

MOV 

L/A 

ISIS-II  aOBO/0085  MACRO  ASSEMBLER/  V4.0 
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LOC 

OBJ 

LINE 

SOURCE 

STATEMENT 

01.9C 

78 

317 

MOO 

A  /  B 

01-7H 

9C 

318 

SBB 

H 

01 9E 

67 

319 

MOV 

H/A 

320 

/DIFFERENCE  IS 

IN  REG  HL/ 

321 

/CALCULATE  ABSOLUTE  OAl.UE . 

019F 

D2AA01 

D 

322 

JNC 

Dl  l IF  NO  BORROW/  THEN  OK 

01A2 

3E00 

323 

mvi 

A/0 

01A4 

95 

324 

SUB 

L 

01  A3 

6P 

325 

MOV 

L/A 

01A6 

3E00 

326 

MVI 

A/0 

01  A8 

9  C 

327 

SBB 

H 

01A9 

67 

328 

MOV 

H/A 

329 

330 

/'OUTPUT  DIFFERENCE  DATA! 

01AA 

CDOOOO 

E 

331. 

Dl! 

CALL 

SAVE 

01AD 

210700 

D 

332 

LXI 

H/0DATA2 

onto 

OEO  7 

333 

MVI 

C/I.DATA2 

01B2 

CDCFOO 

D 

334 

CALL 

OUTPUT  /'  DIFF== ' 

01.  B3 

210700 

E 

335 

LXI 

H/OPINFO+7 

01B8 

0E04 

336 

MVI 

C/4 

01  BA 

CDCFOO 

D 

337 

CALL 

OUTPUT  /<DIFF==->»  XXXX' 

01BD 

El 

338 

POP 

H 

01  BE 

C). 

339 

POP 

B 

01BF 

FI 

340 

POP 

PSW 

01C0 

C9 

341 

RET 

342 

343 

i »*#***#########*###*## a*###*###*# ## *##*» #**#*## 

344 

345 

/FNASC 

CONVERTS  FUNCTION (PASSED  IN  ACC)  TO  ASCII 

346 

1 ASCII 

DATA  IS 

STORED  IN  OPINFO+4,+5  BY  FNASC 

347 

01C1 

F5 

348 

FNASC ! 

PUSH 

PSW 

01  C2 

C5 

349 

PUSH 

B 

01C3 

E60F 

350 

ANI 

OFH 

01C5 

CAF701 

1) 

351 

JZ 

SU  ?SU  -  0 

01C8 

3D 

352 

DCR 

A 

01C9 

CAFD01 

D 

353 

JZ 

SL 

01CC 

3D 

354 

DCR 

A 

01  CD 

CA0302 

D 

355 

JZ 

EU 

01  DO 

3D 

356 

DCR 

A 

01D1 

CA0902 

D 

357 

JZ 

EE 

0104 

3D 

358 

DCR 

A 

011)5 

CA0F02 

D 

359 

JZ 

WU 

01D8 

3D 

360 

DCR 

A 

01D9 

CA  1.502 

D 

361. 

JZ 

Wl.  /WL  -  5 

01DC 

3D 

362 

DCR 

A 

01  DD 

CA1B02 

D 

363 

JZ 

WR 

01E0 

3D 

364 

DCR 

A 

01  El. 

3D 

365 

DCR 

A 

01E2 

CA2102 

D 

366 

JZ 

HO  1H0  =  8 

01 E3 

3D 

367 

DCR 

A 

01E6 

CA2702 

D 

368 

JZ 

HC  /HC  =  9 

01.E9 

013F3F 

369 

LXI 

01EC 

78 

370 

RETls 

MOV 

A/B 

01  ED 

320400 

E 

371 

sta 

OP INF 0+4 
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01F0  79 
OK  I  320500 
01F4  Cl 
OK' 5  FI 
01F6  C? 

OIF?  01.5553 
01FA  C3EC01 
OK'D  01.4C53 
0200  C3EC01 
0203  01.5545 
0206  C3EC01 
0209  014545 
020C  C3EC01 
020F  01.5557 
0212  C3EC01 
0215  01.4C57 
0218  C3EC01 
021 B  015257 
021E  C3EC01 
0221  014F48 
0224  C3EC01 
0227  014348 
022A  C3EC01 


372 

MOV 

A ;  C 

E 

373 

STA 

OP INF 0+5 

374 

POP 

B 

375 

POP 

PSW 

376 

RET 

377  SUs 

LX  I 

B;'SU' 

D 

378 

JMP 

RET1 

379  SLs 

LXI 

B;'SL' 

D 

380 

JMP 

RET1 

381  EU: 

LXI 

B;'EU' 

D 

382 

JMP 

RET1 

383  EE: 

LXI 

B;'EE' 

D 

384 

JMP 

RET1 

385  MU : 

LXI 

B/'WU' 

D 

386 

JMP 

RET1 

387  ML: 

LXI 

B;'WL' 

D 

388 

JMP 

RET1 

389  MR: 

LXI 

B;'WR' 

D 

390 

JMP 

RET1 

391  HO: 

..XI 

B;'HG' 

D 

392 

JMP 

RET1 

393  HC: 

LXI 

B;'HC» 

D 

394 

JMP 

RET1 

395 

396 

END 

PUBLIC 

DISP 

SYMBOLS 

D  0035 

DPROGM 

D 

OOEC 

DRSULT 

D 

0160 

FNASC 

D 

01C1 

HEXA8C 

1) 

OODF 

HXASC1 

D 

OODB 

OUTPUT 

D 

OOCF 

XMIT 

D 

OOBF 

EXTERNAL 

SYMBOLS 

ASCHEX 

E 

0000 

ASCHX1 

E 

0000 

CUTOFF 

E 

0000 

ERROR 

E 

0000 

EXIT 

0000 

FINAL 

E 

0000 

OP INFO 

E 

0000 

PRADD 

E 

0000 

PROMT 

E 

0000 

SAVE 

E 

0000 

START1 

E 

0000 

STOPFG 

F. 

0000 

USRT 

E 

0000 

WAIT 

E 

0000 

USER  SYMBOLS 
AcsnUEX  F  0000 

ASCHX1 

E 

0000 

CUTOFF 

E 

0000 

D1 

D 

01AA 

D4 

D 

009A 

DISP 

D 

0035 

DISP1 

D 

0048 

DISP2 

D 

005C 

D1SP2A 

B 

0065 

DISP3 

D 

007E 

DISP4 

D 

0097 

DPI 

D 

0137 

DPROGM 

D 

OOEC 

DRSULT 

D 

0160 

EE 

D 

0209 

ERROR 

E 

0000 

EU 

D 

0203 

EXIT 

E 

0000 

FINAL 

E 

0000 

FNASC 

D 

01C1 

HC 

D 

0227 

HEX1 

D 

00E9 

HEXASC 

D 

OODF 

HQ 

D 

0221 

HXASC1 

1) 

OODB 

LDATA1. 

A 

0007 

LDATA2 

A 

0007 

1.  DAT  A3 

A 

0009 

LBATA4 

A 

0007 

LDATA5 

A 

0009 

LDATA6 

A 

0008 

LDATA7 

A 

0006 

OBATA) 

0 

0000 

0DATA2 

D 

0007 

0DATA3 

D 

OOOE 

0DATA4 

D 

0017 

QDATA5 

D 

001E 

0DATA6 

D 

0027 

GDATA7 

D 

002F 

OP INFO 

E 

0000 

OUTPUT 

I) 

OOCF 

PRADD 

E 

0000 

PROMT 

E 

0000 

RET  1 

D 

01EC 

SAVE 

E 

0000 

SL 

0 

01FD 

START1 

E 

0000 

STOP 

D 

013C 

ST0PF13 

E 

0000 

SU 

D 

01F7 

USRT 

E 

0000 

HAIT 

F. 

0000 

ML 

D 

0215 

MR 

D 

021B 

MU 

D 

020F 

XMIT 

D 

OOBF 

XMIT1 

I) 

00C1. 

ASSEMBLY  COMPLETE;  NO  ERRORS 
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ISIS- II  ASSEMBLER  SYMBOL  CROSS  REFERENCE  >  02.1 


ASCHEX 

13 

71 

93 

ASCHX1 

13 

58 

CUTOFF 

15 

284 

D1 

322 

331* 

D4 

88 

110* 

D1SP 

11 

44* 

DI3P1 

50 

55* 

DISP2 

56 

65* 

Dr3P2A 

66 

71# 

DISP3 

60 

92# 

DISP4 

101 

109# 

125 

DPI 

250* 

270 

DPROGM 

12 

111 

199* 

DRSUl.T 

12 

279* 

EE 

357 

383* 

ERROR 

15 

EU 

355 

381  • 

EXIT 

13 

51 

61 

FINAL 

14 

294 

312 

FNASC 

12 

217 

348* 

HC 

368 

393* 

HEX  1 

176 

1.79# 

HEXASC 

11 

174* 

210 

HO 

3  66 

391# 

HXASC1 

11 

170* 

207 

LDATA1 

30* 

299 

LDATA2 

31# 

333 

LDATA3 

32* 

245 

261 

LDATA4 

33* 

287 

LDATA5 

34# 

45 

LDATA6 

35# 

99 

L DAT A 7 

36# 

268 

0DATA1 

22# 

298 

0DATA2 

23* 

332 

0DATA3 

24* 

244 

260 

0DATA4 

25# 

286 

0DATA5 

26# 

44 

0DATA6 

27# 

98 

0DATA7 

28* 

267 

OPINFO 

14 

57 

92 

265 

289 

301 

OUTPUT 

1 

1.2 

46 

269 

288 

291 

PRADD 

14 

49 

59 

PROMT 

16 

75 

RET  1 

370# 

394 

378 

380 

SAVE 

15 

231 

285 

SL 

353 

379# 

START  1 

1.5 

122 

126 

STOP 

216 

258* 

STOPFG 

1.6 

1.20 

222 

SU 

351 

377* 

USRT 

14 

135 

139 

WAIT 

13 

114 

HI. 

361 

387# 

HR 

363 

389# 

109 


67  1.02 

241 

238 


208 

211 

239 

242 

335 

371 

373 

100 

154* 

159 

246 

300 

303 

3  34 

337 

83 

94 

116 

119 

382 

384 

386 

388 

295  331 

259 


247  263 
249  262 
205  306 
390  392 


RAGE 
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IS1S- 

wu 

XMIT 

XMIT1 

CROSS 


II  ASSEMBLER  SYMBOL  CROSS  REFERENCE/  02.1 
359  385# 

11  65  133#  156  264  266 

135#  137 

REFERENCE  COMPLETE 


i 


t 

i  .i 

,  > 


PAGE  2 


v 


i 

1 
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I.OC  OBJ  LINE  SOURCE  STATEMENT 

1  NAME  PROGW 

; PROGRAMMER :  C . MORR I N 

4  /VERSION  2.0W 

5  ;DATE  OF  LAST  CHANGE:  NOVEMBER  3/  1977 

6 

7  ;**#**«*«****«*#»»#»»*»»»#»»**#»*****»****#**»«* 

s 

9  CSEG 

10 

11  PUBLIC  PROGR/PRGUB 

12  1PR0GXX  ADDRESSES  ARE  ALSO  ENTRY  POINTS 

13  EXTRN  PRADD; OUTPUT /WAIT 

14  EXTRN  TRANSO 

15  EXTRN  STATE/EXIT/ERROR/OPINFO 

16  EXTRN  START 1/DPROGM/GETPOT  »XMIT 

17  EXTRN  ASCHEX / ASCHX1 / HEXASC / HXASC1 

18 

19  ;  ######»#»##*####*»»**#*###**#*#**###*##**)**##»# 

20 

21  /OUTPUT  MESSAGE  TABLE: 


22 

DSEG 

23 

0000 

20505247 

24 

CIPRGl: 

DB 

'  PRGM*AD=' 

0004 

4D2A4144 

0008 

3D 

0009 

20532C45 

25 

GPRG2 J 

OB 

'  S/E/W/H/  T/  OR  N?' 

OOOD 

2C572C48 

0011 

2C20542C 

00  IS 

204F5220 

0019 

4E3F 

001.  B 

20444541 

26 

0PRG3 i 

DB 

'  DEADEND- ' 

001F 

44424E44 

0023 

3D 

0024 

20444154 

27 

0PRG4  s 

DB 

'  DATA® ' 

0028 

41 3D 

002A 

204F5045 

28 

0PRG5 : 

DB 

'  OPEN  OR  CLOSE?' 

002E 

4E204F52 

0032 

20434C4F 

0036 

53453F 

0039 

2055204F 

29 

0PRG6 : 

DB 

'  U  OR  L?' 

003D 

52204C3F 

0041 

20454E44 

30 

0PRG7 : 

DB 

’  END  OF  PROGRAM' 

004  5 

204F4620 

0049 

50524F47 

004D 

5241 4D 

0050 

2055204F 

31 

GPRG8: 

DB 

'  U  OR  E?' 

0054 

S220453F 

32 

0009 

33 

LPRG1 

EOU 

9 

0012 

34 

LPRG2 

EQU 

13 

0009 

35 

LPRG3 

EOU 

9 

0006 

36 

LPRG4 

EQU 

6 

ooor 

37 

I.PRB5 

EOU 

15 
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PRQGW 


PAGE 


LOC  OBJ 


LINE  SOURCE  STATEMENT 


0008 

38 

LPRG6 

EQU 

8 

ooor 

39 

L.PRG7 

EQIJ 

15 

0008 

40 

LPRG8 

EQU 

a 

41. 

43 

44  /PROGRAM  ROUTINE: 

45 

46  /THIS  ROUTINE  PROVIDES  THE  BULK  OF  THE  HAND 

47  /CONTROLLER  INTERFACE  REQUIRED  TO  PROGRAM 

48  /THE  PROGRAMMER. THE  PROGRAMMER 

49  /ACCEPTS  AND  OPERATES  ON  ONE  CHARACTER  AT  A 

50  /TIME.  A  FINITE  STATE  STRUCTURE  IS  USED  TO 

51  /DETERMINE  THE  INTERPRETION  OF  THE 

52  /INCOMING  DATA. 

53 

54  CSEG 

55 

56  /  ♦  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  + 


57  /PROGRAM  MODE/  REQUEST  ADDRESS  INFORMATION 


0000 

210000 

D 

58 

PROGR: 

LXI 

H/0PRG1  / 

'PROGRAM  ADDRESS^' 

0003 

0E09 

59 

MV  I 

C/LPRG1 

0005 

CDOOOO 

E 

60 

CALL 

OUTPUT 

0008 

21 or oo 

C 

61 

LXI 

H/PR0G2 

OOOB 

C30000 

E 

62 

JMP 

EXIT 

63 

64 

65 

;++ +++-M 

►++++++■ 

*•+■*•++++++++ 

+ ♦ 4* +  +  +  +  +  +  +  +  +  ♦  +  +  +  +  +  +  ♦ 

66 

/•PROGRAM  MODE/ 

FIRST  ADDRESS  DIGIT 

OOOE 

320100 

E 

67 

PR0G2  s 

STA 

OPINFO+1 

/ADDRESS  BYTE/  HIGH 

0011 

CDOOOO 

E 

68 

CALL 

ASCHX1 

0014 

320000 

E 

69 

STA 

PRADD 

0017 

211D00 

C 

70 

LXI 

H/PR0G3 

/CALL  PR0G3  NEXT 

001  A 

C30000 

E 

71 

JMP 

EXIT 

00 ID  320200 
0020  CD 0000 
0023  210000 
0026  1)6 
0027  77 


002E  210900 
0031  0E12 
0033  CDOOOO 
0036  213C00 


E 

E 

E 


0028  01204E 
002B  CDOOOO  E 


E 

C 


72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 


/PROGRAM  MODE/  SECOND  ADDRESS  DIGIT. 
/REQUEST  FUNCTION  CHARACTER 


/ADDRESS  BYTE/  LOW 


PR0G3 :  STA  0PINF0+2 

CALL  ASCHEX 

LXI  H/PRADD 

ORA  M 

MOV  M/A 

/STORE  2  HEX  DIGITS  IN  PRADD 
LXI  B/20000D 

/WAIT  1  SECOND  =  2000  X  50  MICROSECONDS 
CALL  WAIT 


J  THIS  IS  THE 
/’ALREADY  BEEN 
PR0G3Y :  LXI 
MV  I 
CALL 
LXI 


STARTING  POINT  AFTER  A  STEP 
PROGRAMMED. 

H/0PRG2 
C/LPRG2  • 

OUTPUT  SU/SL/E/Mz  T/  OR 
H/PR0G4  /CALL  PR0G4  NEXT 


+++♦ 
HAS 


N?' 
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LOC 

OBJ 

LINE 

SOURCE  STATEMENT 

0039 

C30000 

e: 

93 

JMP 

EXIT 

94 

95 

;  ++++■*■+++ +++•*•++ 

+++++++++++++++++++++■*•+++++++■*■+ 

96 

; PROGRAM  MODE/ 

INPUT  FIRST  FUNCTION  CHARACTER. 

97 

/SHOULDER  GROUP 

/  ELBOW  GROUP/  OR  WRIST  GROUP? 

98 

/•(EXTEND  IS  PART  OF  ELBOW  GROUP). 

003C 

FE4E 

99 

PR0G4J  CPI 

»N' 

003E 

CAA700 

c 

100 

JZ 

PR0G4N 

0041 

FE54 

1.01 

CPI 

'T' 

0043 

CAOOOO 

E 

102 

JZ 

TRANSO 

004<i 

320400 

E 

103 

STA 

0PINF0+4 

0049 

FE48 

104 

CPI 

'H' 

OO-tB 

CA6000 

C 

105 

JZ 

PR0G4H 

004E 

FE53 

106 

CPI 

'S' 

0050 

CA7000 

c 

107 

JZ 

PR0G4S 

0053 

FE45 

108 

CPI 

'E' 

0055 

CA8000 

c 

109 

JZ 

PR0G4E 

0058 

FE57 

110 

CPI 

'W' 

OOSA 

CA9000 

c 

111 

JZ 

PRQG4W 

005D 

C30000 

E 

112 

JMP 

ERROR 

113 

114 

/•HAND  OPEN  =  1000  BINARY 

115 

JHAND  CLOSE  *•  1001  BINARY 

0060 

CDOOOO 

E 

116 

PR0G4H :  CALL 

XMIT 

0063 

212A00 

D 

117 

LXI 

H/0PRG5 

0066 

OEOF 

118 

MV  I 

C/LPRG5 

0068 

CDOOOO 

E 

119 

CALL 

OUTPUT  1 ' OPEN  OR  CLOSE?' 

0068 

3E08 

120 

MV  I 

A/8 

006D 

C39D00 

C 

121 

JMP 

END4 

122 

0070 

CDOOOO 

E 

123 

PR0G4S;  CALL 

XMIT 

0073 

213900 

D 

124 

LXI 

H/0PRG6 

0076 

0E08 

125 

MVI 

C/LPRG6 

0078 

CDOOOO 

E 

126 

CALL 

OUTPUT 

007B 

3E00 

127 

MVI 

A/0 

128 

/SHOULDER  UP/DN 

=  000  BINARY 

129 

/SHOULDER  LF/RT 

=■  001.  BINARY 

007D 

C39D00 

C 

130 

JMP 

END4 

131 

0080 

CDOOOO 

E 

132 

PR0G4E !  CALL 

XMIT 

133 

J ELBOW  UP/DN  -■ 

010  BINARY 

134 

/ELBOW  EXTEND  = 

Oil  BINARY 

0083 

215000 

D 

135 

LXI 

H/0PRG8 

0086 

0E08 

136 

MVI 

C/LPRG8 

0088 

CDOOOO 

E 

137 

CALL 

OUTPUT  /'UP/DOWN=U  EXTENB-E 

008B 

3E02 

138 

MVI 

A/2 

008D 

C39D00 

C 

139 

JMP 

END4 

140 

0090 

CDOOOO 

E 

141 

PR0G4W s  CALL 

XMIT 

142 

/WRIST  UP/DN  -* 

100  BINARY 

143 

/WRIST  LF/RT  =• 

101  BINARY 

0093 

213900 

D 

144 

LXI 

H/0PRG6 

0096 

0E08 

145 

MVI 

C/LPRG6 

0098 

CDOOOO 

E 

146 

CALL 

OUTPUT  /'  UP/DOWN"U  LEFT/RT=L 

009B 

3F.04 

147 

MVI 

A  /  4 

95 
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LOC 

OBJ 

LINE 

SOURCE  STATEMENT 

oo?n 

2A0000 

E 

148  END4  : 

LHLD 

PRADD 

OOAO 

77 

149 

MOV 

M/A 

OOAl 

21BDOO 

C 

150 

LXI 

H/ PROGS 

00A4 

C30000 

E 

15) 

JMP 

EXIT 

152 

153  JEND  OF 

PROGRAM 

MODE.  INSERT  STOP 

154  /FLAG  AT  END  OF 

PROGRAM. 

00A7 

219100 

D 

155  PR0G4N  : 

LXI 

H/0PRG7 

OOAA 

OEOF 

156 

MV  I 

C/LPRG7 

OOAC 

cnoooo 

E 

157 

CALL 

OUTPUT 

OOAF 

011027 

158 

LXI 

8/ 10000 

00B2 

CDOOOO 

F. 

159 

CALL 

WAIT  /WAIT  .5  SEC 

0085 

2A0000 

E 

160 

LHLD 

PRADD 

OODB 

36FF 

1.61 

MV  I 

M/OFFH 

162  )SET  STOP  FLAG 

IN  PROGRAM 

OOBA 

C30000 

e: 

1.63 

164 

1.65  ;++■*•+++ 

JHP 

4*  +  +  +  ♦  +  +  + 

START1 

166  /PROGRAM  MODE/ 

SECOND  FUNCTION  CHARACTER 

OOBD 

320500 

e: 

167  PROGS: 

STA 

0PINF0+5 

OOCO 

FE55 

168 

CPI 

'U' 

00C2 

CAEOOO 

c 

169 

JZ 

UP 

00C5 

2A0000 

E 

170 

LHLD 

PRADD 

OOC8 

FE45 

171 

CPI 

'E' 

OOCA 

CAFEOO 

C 

172 

JZ 

EXTEND 

oocd 

FE4C 

1.73 

CPI 

'L' 

OOCF 

CADFOO 

C 

174 

JZ 

LEFT 

001)2 

FE4F 

175 

CPI 

'0' 

00D4 

CA0601 

c 

176 

JZ 

OPEN 

00D7 

FE43 

177 

CPI 

/  '  / 

w 

00D9 

C A0501 

c 

178 

JZ 

CLOSE 

oom; 

C30000 

ci 

179 

JMP 

ERROR 

180 

OODF 

34 

181  LEFT: 

INK 

M 

OOEO 

210000 

D 

182  UP: 

LXI 

H/0PRG1 

ooo 

OF  09 

183 

MVI 

C/LPRG1 

00E5 

CDOOOO 

E 

184 

CALL 

OUTPUT  V  PROG»AD=' 

00E8 

210100 

E 

185 

LXI 

H/OPINFO-i  _ 

OOEB 

0E05 

186 

MVI 

C/5 

OOED 

CDOOOO 

E 

187 

CALL 

OUTPUT  /OUTPUT  'AA  FF' 

OOFO 

212400 

D 

188 

LXI 

H/0PRG4 

OOF'S 

0E06 

189 

MVI 

C/LPRG4 

00F5 

CDOOOO 

E 

190 

CALL 

OUTPUT  )'  DATA=' 

191  /DISPLAY  NON  READS  'PROG*AD=AA' 

192  / 

'FF  DATA= ' 

OOFB 

212601 

C 

193 

LXI 

H/PR0G6 

OOFB 

C30000 

E 

194 

JMP 

EXIT 

195 

OOFE 

7E 

196  EXTEND: 

MOV 

A/M  F CORRECT  FUNCT 

OOFF 

F603 

197 

OR  I 

3 

0101 

77 

198 

MOV 

M/A 

0  J  02 

c3f:ooo 

C 

199 

JMP 

UP 

200  /OUTPUT 

201 

'AA  FF' 

/  UPDATE  STATE  AND  EXIT 

0105 

34 

202  CLOSE: 

INR 

M 

96 


AD-flll’9  327 
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LOC 

OBJ 

LINE 

SOURCE 

STATEMENT 

0106 

23 

203 

OPEN*  I NX 

H 

0107 

3600 

204 

MV  I 

M/0 

0109 

23 

205 

1NX 

H 

OlOA 

3600 

206 

MV  I 

M/0 

010C 

23 

207 

1NX 

H 

010D 

3600 

208 

MV  I 

M/0 

01  OF 

3E30 

209 

MVI 

A/'O' 

0111 

320700 

E 

210 

STA 

QPINFQ+7 

01 14 

320800 

E 

211 

STA 

OP INF 0+8 

0117 

320900 

E 

212 

STA 

0PINF0+9 

01. 1A 

320A00 

E 

213 

STA 

0PINF0+10 

0110 

320C00 

E 

214 

STA 

QPINFO+12 

0120 

320D00 

E 

215 

STA 

0PINF0+13 

0123 

C3EB01 

C 

216 

JMP 

PRG11A 

217 

/NOTE t  REG  HL 

-< PR ADD) +3  AS  REQUIRED 

218 

219 

/++  +  4-+++++'*-+4-  +  '»-+++++++++4'++-f+4-++-f-f+++++++-f ++++++ 

220 

/‘PROGRAM  MODE 

/  FIRST  DATA  DIGIT 

0126 

FE2A 

221 

PR0G6 :  CPI 

0128 

CA4E01 

C 

222 

JZ 

PR0G6A  /AUTO  DATA  READ 

012B 

320700 

E 

223 

STA 

0PINF0+7  /FIRST  DATA  BYTE/  HIGH 

012E 

CDOOOO 

E 

224 

CALL 

ASCHX1 

0131 

2AOOOO 

E 

225 

LHLD 

PRADD 

0134 

23 

226 

INX 

H 

227 

1REG  HL  HAS  PROGRAM  ADDRESS  FOR  FIRST  DATA  BYTE 

0135 

77 

228 

MOV 

M/A 

229 

/STORE  FIRST 

HALF  OF  FIRST  DATA  BYTE 

0136 

213C01 

C 

230 

LXI 

H/PR0G7  /CALL  PR0G7  NEXT 

0139 

C30000 

E 

231 

JMP 

EXIT 

232 

233 

/  ♦♦ +4* +' + ♦ ++  +  ♦  ♦  « ++ ++  +  +  ++ ++++' ■ ++♦ ♦  < +■ +■ + +■ 4>+ +♦ 4- 4- 4-4- 4- 4-  4- 

234 

J PROGRAM  MODE 

/  SECOND  DATA  DIGIT 

013C 

320800 

E 

235 

PR0G7 :  STA 

0PINF0+8  /FIRST  DATA  BYTE/  LOW 

013F 

CDOOOO 

E 

236 

CALL 

ASCHEX 

0142 

2AOOOO 

E 

237 

LHLD 

PRADD 

0145 

23 

238 

INX 

H 

239 

/H  PROGRAM 

ADDRESS  OF  FIRST  BYTE 

0146 

B6 

240 

ORA 

M  /COMBINE  BOTH  DATA  HALVES 

0147 

77 

241 

MOV 

M/A  /STORE  FIRST  DATA  BYTE 

0148 

218501 

C 

242 

LXI 

H/PR0G8 

01.4B 

C30000 

E 

243 

JMP 

EXIT 

244 

245 

/♦♦♦+ ♦  ♦♦♦■♦■♦■♦■■M-++++++++ 4-++-M-++'*-+++++-*-+++++4"f'f  ++++ 

246 

1 AUTOMATIC  DATA  READ 

014E 

CDOOOO 

E 

247 

PR0G6A J  CALL 

GETPOT 

248 

/DATA  HILL  BE 

STORED  IN  PRADD+1 /+2/0PINF0+8-1 l 

249 

/NEED  TO  SET 

APPROPRIATE  DEADBAND: 

0151 

2A0000 

E 

250 

LHLD 

PRADD 

0154 

7E 

251 

MOV 

A/M  /GET  FUNCTION 

0155 

FEOO 

252 

CPI 

0 

0157 

CA7601 

C 

253 

JZ 

xsu 

015A 

FE01 

254 

CPI 

1 

CISC 

CA7B01 

c 

255 

JZ 

XSL 

015F 

FE02 

256 

CPI 

2 

0161 

CA7B01. 

c 

257 

JZ 

XSL  !EU 

rsis-n 

:  3080/8085 

MACRO 

ASSEMBLER/  V4. 

0 
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I.OC 

OBJ 

LINE 

SOURCE 

STATEMENT 

0164 

FE03 

258 

CPI 

3 

01  66 

CA7601 

C 

2S9 

JZ 

XSU 

ZEE 

0169 

FE04 

260 

CPI 

4 

016B 

CA7601 

C 

261 

JZ 

xsu 

JWU 

016E 

FE05 

262 

CPI 

5 

0170 

CA7B01 

C 

263 

JZ 

XSL 

5  ML 

0173 

C30000 

E 

264 

JMP 

START1 

0176 

3E03 

265 

XSUi 

MVI 

A/3 

0178 

C37D01 

C 

266 

JMP 

XX 

01  7B 

3E05 

267 

XSL  • 

MVI 

A/5 

017D 

110300 

268 

XX  x 

LXI 

D/3 

01.80 

19 

269 

DAD 

D 

ZHL  -  (PRADD) ♦3 

0181 

77 

270 

MOV 

M/A 

/STORE  DEADBAND 

0102 

C3EB01 

C 

271 

JMP 

PRG11A 

272 

273 

;+++++++++++++++++++++++++++++++++++++++++++++++ 

274  /PROGRAM  MODE/  THIRD  DATA  DIBIT 


0185 

320900 

E 

275 

PR0G8 :  STA 

OP INF 0+9  /SECOND  DATA  BYTE/  HIGH 

0188 

CDOOOO 

E 

276 

CALL 

ASCHX1 

01  8B 

2A0000 

F. 

277 

LHLD 

PRADD 

018E 

23 

278 

INX 

H 

01  OF 

23 

279 

I  NX 

H 

0190 

77 

280 

MOV 

M/A 

0191 

219701 

C 

281 

LXI 

H/PR0G9 

0194 

C30000 

E 

282 

JMP 

EXIT 

283 

284 

285 

/PROGRAM  MODE/ 

FOURTH  DATA  DIGIT 

0197 

320A00 

E 

286 

PR0G9S  STA 

QPINF0+10  /SECOND  DATA  BYTE/  LOW 

01  9  A 

CDOOOO 

E 

287 

CALL 

ASCHEX 

019D 

2A0000 

E 

288 

LHLD 

PRADD 

01  AO 

23 

289 

INX 

H 

01A1 

23 

290 

INX 

H 

01A2 

B6 

291 

ORA 

M 

01A3 

77 

292 

MOV 

M/A 

293 

/STORE  SECOND 

DATA  BYTE  IN  PROGRAM 

01A4 

210000 

D 

294 

LXI 

H/0PRG1 

01  A7 

0E09 

295 

MVI 

C/LPRG1 

01A9 

CDOOOO 

E 

296 

CALL 

OUTPUT  !'  PROG»AD-' 

01  AC 

21.0100 

F. 

297 

LXI 

H/OPINFO+1 

01AF 

OEOA 

298 

MVI 

C/10 

01  D 1 

CDOOOO 

E 

299 

CALL 

OUTPUT  Z'AA  FF-DDDD' 

300 

/DISPLAY  NON  READS  'PROG»AD-AA' 

301. 

/ 

'FF-DDDD' 

01B4 

011027 

302 

LXI 

Bz 10000 

01B7 

CDOOOO 

E 

303 

CALL 

WAIT  /WAIT  .5  SECOND 

01BA 

211B00 

D 

304 

LXI 

H/0PRG3 

01.  BD 

0F.09 

305 

MVI 

C/LPRG3 

01BF 

CDOOOO 

E 

306 

CALL 

OUTPUT  /'DEADBAND-' 

01 C2 

21.C801 

C 

307 

LXI 

H/PROGIO 

01C5 

C30000 

E 

308 

JMP 

EXIT 

309 

310 

/  + ♦ + ♦ ++■  «■  +■  ♦  +  «■  ♦  «■  ♦  +■ ++ ♦  ♦  +  ♦  +  ♦  4-+  +■ *  *  *  *  +  «• + +  ♦  «■  ♦ *  ♦  ♦  ♦ ♦  ♦  4-  ♦  ♦ 

311 

/PROGRAM  MODE/ 

FIRST  DEADBAND  DIGIT 

01C8 

320C00 

E 

312 

PROGlOi  STA 

0PINF0+12  /DEADBAND  BYTE/  HIGH 

98 


LOC 

OBJ 

LINE 

SOURCE  STATEMENT 

01  CB 

CDOOOO 

r. 

313 

CALL 

ASCHX1 

01CE 

200000 

E 

314 

LHLD 

PRADD 

01.01 

110300 

315 

LXI 

D/3 

0104 

19 

316 

DAD 

D  /HL  *  <PRADD) +3 

0105 

77 

317 

MOD 

M/A 

318 

J STORE  FIRST  HALF  OF  DEADBAND  DATA  IN  PRADD 

0106 

21DC01 

c 

319 

LXI 

H/PR0G1 1 

01D9 

C30000 

E 

320 

JMP 

EXIT 

321 

322 

;4-4-++4-4-4-4*4*4.4‘4'4-4-4*4-4*4-«f4-4*4’4-4-4-4*4-4*4’4-4-f++4-4-+4-4-4*4-4-4-4-4-4-4- 

323 

Z PROGRAM  MODE/ 

SECOND  DEADBAND  DIGIT 

01DC 

320000 

E 

324 

PR0611 s  STA 

0PINF0+13  /DEADBAND  BYTE/  LOW 

01  OF 

CDOOOO 

E 

325 

CALL 

ASCHEX 

01E2 

2A0000 

E 

326 

LHLD 

PRADD 

01 E5 

110300 

327 

LXI 

D/3 

01E8 

19 

328 

DAD 

D  /HL  =  (PRADD) +3 

01E9 

B6 

329 

ORA 

M 

01EA 

77 

330 

MOV 

M/A 

331 

332 

/++++++++'M- 

333 

J DISPLAY  COMPLETED  PROGRAM  STEP  AND  GET 

334 

/READY  TO  PROGRAM  ANOTHER. 

335 

/NOTE:  REG  HL 

=  (PRADD) +3  FOR  ENTRY  HERE 

01EB 

CDOOOO 

E 

336 

PRGllAi  CALL 

DPROGM 

337 

/DISPLAY  IS  NON 

:  'PROG*AD=AA' 

338 

• 

/ 

'FF-DDDD-DB' 

339 

/UPDATE  PRADD I 

01EE 

23 

340 

INX 

H  ZHL= (PRADD) +4 

01 EF 

220000 

E 

341 

SHLD 

PRADD 

342 

343 

/  ♦■$++■*•+•♦•+■*■•*■■»■+•*■+ 

+++++4-f++++++++++++++++++.*"4-+++++4- 

344 

/EXTERNAL  ENTRY 

POINT  (RETURN  FROM  TRANSFER) 

345 

/GET  READY  TO  PROGRAM  ANOTHER  STEP: 

01F2 

3A0000 

E 

346 

PRGUBI  LDA 

PRADD 

01  F5 

CDOOOO 

F. 

347 

CALL 

HXASC1 

01F8 

320100 

E 

348 

STA 

OPINFO+1 

349 

/STORE  FIRST  DIGIT  OF  ADDRESS 

01FB 

3A0000 

E 

330 

LDA 

PRADD 

01FE 

CDOOOO 

E 

351 

CALL 

HEXASC 

0201 

320200 

E 

352 

STA 

QPINFO+2 

353 

/STORE  2ND  DIGIT  OF  ADDRESS 

0204 

210000 

D 

354 

LXI 

H/0PRG1 

0207 

01109 

355 

MVI 

C/LPRG1 

0209 

CDOOOO 

E 

356 

CALL 

OUTPUT  / ' PROGRAM  ADDRESS* ' 

020C 

210100 

E 

337 

LXI 

H/OPINFO+1 

020F 

0E02 

358 

MVI 

C/2 

0211 

CDOOOO 

E 

359 

CALL 

OUTPUT  /' AA' 

0214 

011027 

360 

•  -  - .  LXI 

B/ 10000  /WAIT  .5  SECOND 

0217 

CDOOOO 

E 

361 

CALL 

WAIT 

021A 

C32E00 

C 

362 

JMP 

PR0G3Y 

363 

364 

365 

366 

END 

ISIS- II  8080/8085  MACRO  ASSEMBLER#  04.0 


PRQGW 


PAGE 


8 


PUBLIC  SYMBOLS 


PRG1 IB 

C 

01F2 

PRODR 

C 

0000 

EXTERNAL 

SYMBOLS 

ASCHEX 

E 

0000 

ASCHX1 

E 

0000 

EXIT 

E 

0000 

GETPOT 

E 

0000 

OPINFO 

E 

0000 

OUTPUT 

E 

0000 

STATE 

E 

0000 

TRANSO 

E 

0000 

USER  SYMBOLS 

ASCHEX 

E 

0000 

ASCHX1 

E 

0000 

END4 

C 

009D 

ERROR 

E 

0000 

GETPOT 

E 

0000 

HEXASC 

E 

0000 

LPRG1 

A 

0009 

LPRG2 

A 

0012 

LPRG5 

A 

OOOF 

LPRG6 

A 

0008 

OPEN 

C 

0106 

OPINFO 

E 

0000 

0PRG3 

D 

001?. 

0PRG4 

D 

0024 

QPRG7 

0 

0041 

0PRG8 

D 

0050 

PRG1 1  A 

C 

01EB 

PRD11B 

C 

01F2 

PR0G2 

C 

OOOE 

PROG  3 

C 

001D 

PR0G4E 

c 

0080 

PR0G4-H 

C 

0060 

PR0G4M 

c 

0090 

PRQG5 

C 

OOBD 

PR0G7 

c 

013C 

PROGB 

C 

0185 

START1 

E 

0000 

STATE 

E 

0000 

WAIT 

E 

0000 

XMIT 

E 

0000 

XX 

C 

017D 

ASSEMBLY 

COMPLETE#  NO 

ERRORS 

DPROGM 

E 

0000 

ERROR 

E 

0000 

HEXASC 

E 

0000 

HXASC1 

E 

0000 

PRADD 

E 

0000 

START 1 

E 

0000 

WAIT 

E 

0000 

XMIT 

E 

0000 

CLOSE 

C 

0105 

DPROGM 

E 

0000 

EXIT 

E 

0000 

EXTEND 

C 

OOFE 

HXASC1 

E 

0000 

LEFT 

C 

OODF 

LPRG3 

A 

0009 

LPRG4 

A 

0006 

LPRG7 

A 

OOOF 

LPRGB 

A 

0008 

0PRG1 

D 

0000 

0PRG2 

D 

0009 

0PRD5 

D 

00 2 A 

0PRG6 

D 

0039 

OUTPUT 

E 

0000 

PRADD 

E 

0000 

PR0G10 

C 

01C8 

PR0G11 

C 

01  DC 

PR0G3Y 

C 

002E 

PR0G4 

C 

003C 

PR0G4N 

C 

00A7 

PR064S 

c 

0070 

PR0G6 

c 

0126 

PR0G6A 

c 

014E 

PRQB9 

c 

0197 

PROGR 

c 

0000 

TRANSO 

E 

0000 

UP 

c 

OOEO 

XSL 

c 

017B 

XSU 

c 

0176 

100 


PACE 


ISIS-II  ASSEMBLER  SYMBOL  CROSS* REFERENCE »  V2.1 


ASCHEX  IV 
ASCHX1  IV 
CLOSE  178 
DPROGM  16 
END*  121 
ERROR  15 
EXIT  15 
308 


EXTEMD 

172 

8ETP0T 

16 

hexasc 

17 

HXASC1 

17 

LEFT 

1.74 

LPRG1 

33* 

LPRG2 

34* 

LPRG3 

35* 

LPR84 

36* 

LPRG5 

37# 

LPRG6 

38# 

LPRG7 

39# 

LPRG8 

40* 

OPEN 

176 

OPINFO 

1.5 

213 

324 


0PRG1 

24# 

0PRQ2 

25* 

0PRG3 

26# 

0PRG4 

27# 

0PRG5 

28# 

0PRG6 

29# 

0PRG7 

30* 

0PRG8 

31# 

OUTPUT 

13 

187 

PRADD 

13 

277 

PRG11A 

216 

PRG1 1* 

11 

PRQG10 

307 

PROG  1.1 

319 

PR0G2 

61 

PR0G3 

70 

PR0G3Y 

89# 

PR0G4 

92 

PRQG4E 

109 

PR0G4H 

1.05 

PR0G4N 

100 

PR0G4S 

107 

PR0G4H 

111 

PROGS 

1.50 

PR0G6 

193 

PR0G6A 

222 

PR0G7 

230 

PR0G8 

242 

PROG? 

281 

PROGR 

1.1 

77 

236 

207 

68 

224 

276 

202# 

336 

130 

1.39 

148# 

112 

17? 

62 

71 

93 

320 

1.96* 

247 

351 

347 


181* 

295 

5? 

90 

305 

189 

118 

183 

125 

156 

136 

203* 

145 

103 

67 

76 

214 

215 

223 

348 

352 

357 

58 

89 

304 

188 

117 

182 

294 

:24 

155 

135 

144 

119 

60 

91 

190 

296 

299 

6? 

78 

148 

2BB 

314 

326 

271 

336# 

346# 

312* 

324# 

67* 

76# 

362 

99# 

132* 

116# 

155* 

1.23* 

141* 

1.67# 

221* 

247* 

235# 

275* 

286* 

58* 


325 

313 


151 


355 


167 

235 

354 


126 

306 

160 

341 


194 


185 

275 


137 

356 

170 

346 


231  243 


210  211 

286  297 


146  157 

359 

225  237 

350 


282 


212 

312 


184 

250 


101 


ISIS-II  ASSEMBLER  SYMBOL  CROSS  REFERENCE/  U2.1 
PROGW  1 


START 1 

16 

1.63 

264 

STATE 

IS 

TRANSO 

1.4 

102 

UP 

169 

182* 

199 

WAIT 

13 

84 

1.59 

303 

361 

XMIT 

16 

116 

123 

132 

141 

XSl. 

255 

257 

263 

267* 

xsu 

253 

259 

261 

265* 

XX 

266 

268* 

CROSS  REFERENCE  COMPLETE 


A8M80  :F  I  :RDPOTW.ASY  XREF  PAGEWIDTH<72>  PRINT  CLP:) 


ISIS-I 


LOG 


OOOO 

0004 

0008 

000C 

0010 

0014 

oooc 

0000 


0000 

0003 

0005 

0008 

0008 


OOOE 
0010 
0013 
0015 
0018 
0010 
001D 
oo  tr 
0022 


8080/8083  MACRO  ASSEMBLER/  04.0  RDPOTW  PAGE  1 


OBJ  LINE  SOURCE  STATEMENT 


20412053 
2C45204F 
5220373F 
2041 2C55 
204F5220 
4C3F 


1  NAME  RDPGTW 

2 

3  /PROGRAMMER  J  C.  MORRIN 

4  i VERSION  l.OW 

5  /DATE  OF  LAST  CHANGE:  OCTOBER  23/  1977 

6 

7  /«******#**#**#*#*#****»»*##*****#**«******»*#*# 

8 


9 

CSEG 

10 

11 

PUBLIC 

RDPOT 

12 

EXTRN 

START1 /ERROR/EXIT /PQTFLG 

13 

EXTRN 

DISPOT /OUTPUT 

.14 

15 

;*****##***#**##*****#***##***#*###«*##«««*#«##« 

16 

17 

DSEG 

18 

19 

on: 

DB 

'  A/S/E  OR  W?' 

20 

0T2 : 

DB 

'  A/U  OR  L?' 

21 

22  LT1  EQU  12 

23  LT2  EDU  10 

24 

25  1 ##*#######**#**##*######*###*#»##**##*#*#**#*#* 

26 

27  CSEG 

28 

29  /HAND  CONTROLLER  INTERFACE: 

30 


31 

/ READ  POTENTIOMETER  MODE/  WHICH  ONE? 

32 

JALL/  SHOULDER 

GROUP/  ELBOW  GROUP/ 

33 

/  OR  WRIST  GROUP? 

210000 

D 

34 

RDPOT:  LXI 

H/0T1 

OEOC 

35 

MV  I 

C/l.Tl 

CDOOOO 

E 

36 

CALL 

OUTPUT  /"  SELECT:  A/S/E/W' 

21.0E00 

C 

37 

LXI 

H/INPT40 

C30000 

E 

38 

JMP 

EXIT 

39 

40 

41. 

/READ  POTENTIOMETER  MOPE/  GROUP? 

FE41 

42 

INPT40*  CPI 

'A' 

CA2500 

C 

43 

JZ 

RALL 

FE53 

44 

CPI 

'S' 

CA4A00 

C 

45 

JZ 

RSHLDR 

FE45 

46 

CPI 

'E' 

CA5800 

C 

47 

JZ 

RF.LBOW 

FE57 

48 

CPI 

'W' 

CA6600 

C 

49 

JZ 

RWRIST 

C30000 

£ 

50 

JMP 

ERROR 

ISIS- 1 1  8080/8085  MACRO  ASSEMBLER /  04.0 


RDPOTW  PAGE 


2 


LOC 

OBJ 

LIME 

SOURCE 

STATEMENT 

51 

52 

t "ALL"  SELECTED/  READ  ALL  POTS : 

0025 

212500 

c 

53 

RALL  J  LXI 

H/RALL 

0028 

220000 

E 

54 

SHLD 

POTFLG 

002B 

3F.00 

55 

MU  I 

A  /O 

0020 

cooooo 

E 

56 

CALL 

DISPOT  1SU  =  0 

0030 

3E01 

57 

MV  I 

A/1 

0032 

cooooo 

E 

58 

CALL 

DISPOT  1SL  =  1 

0035 

3E02 

59 

MVI 

A/2 

0037 

cooooo 

E 

60 

CALL 

DISPOT  1EU  *  2 

003A 

3E04 

61 

MVI 

A/4 

003C 

COOOOO 

E 

62 

CALL 

DISPOT  )WU  *  4 

003F 

3E05 

63 

MVI 

A/5 

0041 

CDOOOO 

E 

64 

CALL 

DISPOT  1WL  »  5 

65 

66 

1THIS  IS  THE 

“END  OF  READ  POT"  RETURN. 

0044 

21 7400 

C 

67 

END40*  LXI 

H/INPT41 

004  7 

C 30000 

E 

68 

JMP 

EXIT 

69 

70 

f “SHOULDER “  SELECTED/  WHICH  POT? 

004A 

210C00 

D 

71 

KSHLDR:  LXI 

H/0T2 

0040 

OEOA 

72 

HVI 

C/LT2 

004F 

CDOOOO 

E 

73 

CALL 

OUTPUT  1 '  SELECT : 

A/U/L' 

0052 

218500 

C 

74 

LXI 

H/INPT42 

0055 

C30000 

F. 

75 

JMP 

EXIT 

76 

77 

1 'ELBOW*  SELECTED/  READ  ELBOW  POTS 

0058 

215800 

C 

78 

RELBOHt  LXI 

H/RELBOW 

005B 

220000 

E 

79 

SHLD 

POTFLG 

005E 

3E02 

80 

MVI 

A/2 

0060 

CDOOOO 

E 

81 

CALL 

DISPOT  /EU  =•  2 

0063 

C34400 

C 

82 

JMP 

END40 

83 

84 

1 “WRIST"  SELECTED/  WHICH  POT? 

0066 

210C00 

0 

85 

RWRIST »  LXI 

H/CIT2 

006? 

OEOA 

86 

MVI 

C/LT2 

006B 

CDOOOO 

E 

87 

CALL 

OUTPUT  1 '  SELECT 

A/U/l. ' 

006 E 

21C600 

C 

88 

LXI 

H/INPT43 

0071 

C30000 

F. 

89 

JMP 

EXIT 

90 

91 

92 

JREAD  POTENTIOMETER  MODE/  UPDATE  READING 

93 

/OR  00  BACK  TO  START?  (U  OR  S?) 

0074 

FE33 

94 

INPT4U  CPI 

'U' 

0076 

CA8100 

C 

95 

JZ 

UPDATE 

007? 

FE53 

96 

CPI 

'S' 

007B 

CAOOOO 

E 

97 

JZ 

START1 

007E 

C30000 

E 

98 

JMP 

ERROR 

99 

100 

1READ  POT  AGAIN/  POTFLG  IS  ADDRESS 

OF 

101 

1 APPROPRIATE 

ROUTINE. 

0081 

2A0000 

E 

102 

UPDATE:  LHLD 

POTFLG 

0084 

r.9 

103 

PCH1. 

104 

105  )♦♦♦♦■*•♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


104 
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i.CIC 

OBJ 

LINE 

SOURCE  STATEMENT 

106 

;read 

SHOULDER 

POTENTIOMETER/ 

WHICH  ONE? 

0085 

FF.41 

107 

INPT42J  CPI 

'A' 

0087 

CA9700 

C 

108 

JZ 

RSA 

008A 

FE55 

109 

CPI 

'U' 

008C 

CAAAOO 

C 

110 

JZ 

RSU 

008F 

FE4C 

111 

CPI 

'L' 

0091 

CAB800 

C 

112 

JZ 

RSL 

0094 

C30000 

E 

113 

JMP 

ERROR 

114 

115 

l  READ 

ALL  SHOULDER  POTS 

0097 

219700 

C 

116 

RSAs 

LXI 

H/RSA 

009A 

220000 

F. 

117 

SHLD 

POTFLG 

009D 

3E00 

118 

MV  I 

A/0 

009F 

CDOOOO 

E 

119 

CALL 

DISPOT  >SU  *• 

0 

00A2 

3E01 

120 

MV  I 

A/1 

00A4 

CDOOOO 

E 

121 

CALL 

DISPOT  /SI.  - 

1 

OCA  7 

C34400 

C 

122 

JMP 

END40 

123 

124 

/READ 

SHOULDER 

UP  POT 

OOAA 

21AA00 

C 

125 

RSU ! 

LXI 

H/RSU 

OOAD 

220000 

E 

126 

SHLD 

POTFLG 

OOPO 

3E00 

127 

MV  I 

A/0 

00B2 

CDOOOO 

E 

128 

CALL 

DISPOT  ;su  = 

0 

0005 

C34400 

C 

129 

JMP 

END40 

130 

131 

/READ 

SHOULDER 

LEFT/RIGHT  POT 

00B8 

21B800 

C 

132 

RSL : 

LXI 

H/RSL 

OOBB 

220000 

E 

1.33 

SHLD 

POTFLG 

OOBE 

3E01 

134 

MV  I 

A/1 

OOCO 

CDOOOO 

E 

135 

CALL 

D I  SPOT  /SL  =• 

1 

00C3 

C34400 

C 

136 

JMP 

END40 

1.37 

138 

1  -*o 

kl<LXlX14il. 

J. 

/ 

“  * TTTTTtt 

TTTTTTTTTTTTTTT1 

rTTTTTTTTTTTTTTTTT 

140 

/READ 

WRIST  POTENTIOMETER/  WHICH  ONE? 

00C6 

FE4  1 

1.4  3 

INPT43 :  CPI 

'A' 

00C8 

CAD800 

c 

142 

JZ 

RWA 

OOCP 

FE55 

1.43 

CPI 

'U' 

OOCO 

CAEBOO 

C 

144 

JZ 

RHU 

OODO 

FE4C 

145 

CPI 

*L' 

00D2 

CAF900 

c 

146 

JZ 

RWL 

00P5 

C30000 

E 

147 

JMP 

ERROR 

148 

149 

/  READ 

ALL  WRIST  POTSs 

OODG 

21D800 

c 

150 

RWA ! 

LXI 

H/RWA 

OOPB 

220000 

E 

1.51. 

SHLD 

POTFLG 

OODE 

3E04 

152 

MV  I 

A/4 

oo  eo 

CDOOOO 

E 

153 

CAl.L 

DISPOT  ?WU 

4 

00E3 

3E05 

154 

MV  I 

A/5 

OOf.5 

CDOOOO 

E 

1.55 

CALL 

DISPOT  >WL  - 

5 

00E8 

C34400 

C 

156 

JMP 

END40 

157 

158 

/‘READ 

WRIST  UP/DOWN  POTs 

OOEB 

21000 

C 

1.59 

RMUs 

LXI 

H/RWU 

OOEE 

220000 

E 

160 

SHLD 

POTFLG 

ISIS-II  8080/B085  MACRO  ASSEMBLER,  04.0 


RDPOTW  PAGE 
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LOC 

OBJ 

LINE 

SOURCE 

STATEMENT 

OOP  1 

3E04 

161 

MO  I 

A, 4 

00F3 

CDOOOO 

E 

162 

CALL 

DISPOT 

;wu 

OOF-6 

C34400 

C 

163 

JMP 

END40 

164 

165  1REAB 

WRIST  LEFT/RIGHT 

POT: 

00F9 

21F900 

C 

166  RNL  > 

LXI 

H » RNL 

OOFC 

220000 

E 

167 

SHLD 

POTFLG 

OOFF 

3E05 

168 

NVI 

A, 5 

0101 

CDOOOO 

E 

169 

CALL 

DISPOT 

>wi. 

0104 

C34400 

C 

170 

JMP 

END40 

1.71 

172 

END 

PUBLIC  SYMBOLS 
RDPOT  C  0000 

EXTERNAL.  SYMBOLS 


DISPOT 

E 

0000 

ERROR 

E 

0000 

EXIT 

E 

0000 

OUTPUT 

E 

0000 

POTFl.G 

E 

0000 

START1 

E 

0000 

USER  SYMBOLS 

DISPOT 

e 

0000 

END40 

C 

0044 

ERROR 

E 

0000 

EXIT 

E 

0000 

INPT40 

C 

OOOE 

INPT41 

C 

0074 

INPT42 

C 

0085 

INPT43 

C 

00C6 

LT1 

A 

oooc 

LT2 

A 

OOOA 

0T1 

D 

0000 

0T2 

D 

OOOC 

OUTPUT 

E 

0000 

POTFLG 

E 

0000 

RALL 

C 

0025 

RDPOT 

C 

0000 

RELBOM 

C 

0058 

RSA 

C 

0097 

RSHLDR 

C 

004A 

RSL 

C 

00B8 

RSU 

C 

OOAA 

RHA 

C 

00D8 

RNL 

C 

00F9 

RWRIST 

C 

0066 

RWU 

c 

OOEB 

START! 

E 

0000 

UPDATE 

C 

0081 

ASSEMBLY  COMPLETE,  NO  ERRORS 


I  SI  Si-  :t  I  ASSEMBLER  SYMBDl.  CROSS  REFERENCE  >  02.1 


PAGE 


1 


DISPOT 

13 

56 

58 

60 

62 

64 

128 

135 

153 

155 

162 

169 

END40 

o7* 

82 

122 

129 

136 

156 

ERROR 

1  2 

50 

98 

113 

1.47 

EXIT 

12 

38 

68 

75 

89 

INPT  *0 

37 

42* 

INPT41 

67 

94* 

INPT 42 

74 

107* 

INPT43 

88 

141* 

LT1 

"l^i 

35 

LT2 

23* 

7*7 

36 

OT I 

19* 

34 

0T2 

20* 

71 

85 

OUTPUT 

13 

36 

73 

87 

POTFLG 

12 

54 

79 

102 

117 

126 

167 

ROLL 

43 

53* 

53 

RDPOT 

11 

34* 

RDPOTW 

1 

RELBOM 

47 

78* 

78 

RSA 

108 

116* 

116 

RSKI.DR 

45 

71* 

RSL 

112 

132* 

132 

RSU 

1 10 

125* 

125 

RKrt 

142 

150* 

150 

RHl. 

146 

166* 

166 

RWRIST 

49 

85* 

RWIJ 

144 

159* 

159 

31 


163 


119 

170 


121 


133 


151 


160 


ASM80  :Ft sRELAYW.ASY  XREF  PAGEWIDTH (72)  PRINT ( :LP : ) 
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LOC  OBJ  LINE  SOURCE  STATEMENT 

1  NAME  RELAYW 

2 

3  ) PROGRAMMER  *  C.MCIRRIN 

4  /'VERSION  l.OW 

5  /BATE  OF  LAST  CHANGE:  NOVEMBER  3/  J 977 

6 

7  / #***»*»*«**»»**#**»*****»****»»*»»***»#**#**#*« 

8 

9  ; THESE  ROUTINES  START  AND  STOP  THE  RELAYS. 

10  /THE  RSTART  ENTRY  POINT  STARTS  THE  RELAY 

11  J INDICATED  BY  PRADD  AND  DIRFLG. 

12  /'(THE  FUNCTION  TO  BE  OPERATED  IS  ENCODED  IN  BITS 

13  f  0/1/2  OF  THE  BYTE  WHICH  PRADD  POINTS  TO.) 

14  / (DIRFLG  INDICATES  WHICH  OF  THE  TWO  RELAYS  USED 

15  /BY  THAT  FUNCTION  IS  TO  BE  TURNED  ON.) 

16  ! 

17  /RSTOP  STOPS  THE  RELAY. 

18 

19  / ft********************************************** 


20 

21 

CSEG 

22 

23 

PUBLIC 

RSTART /RSTOP 

24 

EXTRN 

RELAY1 / PRADD  z  DIRFLG / ERROR /WAIT 

25 

26 

;»»»*»»»**»»»**»»»»»*»»»**»*»»*»**»«*»*»«*»*»»»* 

0000 

E5 

*•:/ 

28 

RSTART : 

PUSH 

H 

0001 

C5 

29 

PUSH 

B 

0002 

w 

z> 

o 

o 

o 

o 

E 

30 

LHLD 

PRADD 

0005 

7E 

31 

MOV 

A/M  /GET  FUNCTION 

0006 

E60F 

32 

ANI 

OFH 

0008 

CA3B00 

C 

33 

JZ 

SHLDUP 

OOOB 

FE01 

34 

CPI 

1 

OOOD 

CA4100 

C 

35 

JZ 

SHLDLR 

0010 

FE02 

36 

CPI 

2 

001.2 

CA4700 

c 

37 

JZ 

ELBOMU 

0015 

FE03 

38 

CPI 

3 

0017 

CA4D00 

c 

39 

JZ 

EXTND 

001A 

FE04 

40 

CPI 

4 

001C 

CA5300 

c 

41 

JZ 

WRISTU 

001F 

FE05 

42 

CPI 

5 

0021 

CASCOO 

c 

43 

JZ 

WRISTL 

0024 

FE06 

44 

CPI 

6 

0026 

CA5900 

c 

45 

JZ 

WRISTR 

0029 

FE08 

46 

CPI 

8 

002B 

CA6B00 

c 

47 

JZ 

HANDOP 

002E 

FE09 

48 

CPI 

9 

0030 

CA7100 

c 

49 

JZ 

HANDCl. 

0033 

FEOE 

50 

CPI 

OEH 

0035 

CA7700 

c 

51 

JZ 

XTEND 

0038 

C30000 

E 

52 

JHP 

ERROR 

53 

003B 

010100 

54 

SHLDUP : 

LXI 

B/l 

108 


ISIS- II  3080/8085  MACRO  ASSEMBLER/  04.0 
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LOC 

OBJ 

LINE 

SOURCE 

STATEMENT 

oo3e: 

C37D00 

C 

55 

JMP 

RELYGO 

0041 

010102 

56 

SHLDLR ! 

LX  I 

B» 201H 

004  4 

C37D00 

c 

57 

JMP 

RELYGO 

0047 

010200 

58 

ELBONU: 

LXI 

B>2 

OO-iA 

C37D00 

c 

59 

JMP 

RELYGO 

0040 

010300 

60 

EXTNDs 

LXI 

8/3 

0050 

C37D00 

c 

61 

JMP 

RELYGO 

0053 

010104 

62 

WRISTUs 

LXI 

B » 401H 

005b 

C35F00 

c 

63 

JMP 

R2 

005? 

C30000 

E 

64 

MRISTR: 

JMP 

ERROR 

oosc 

OlOJOo 

65 

WRISTL! 

LXI 

B/601H 

005F 

3A0000 

E 

66 

R2: 

LDA 

DIRFLG 

0062 

E6FF 

67 

ANI 

OFFH  JSET  ZERO  FLAG 

0064 

C28600 

C 

68 

JNZ 

Rl 

0067 

04 

69 

INR 

B 

0068 

C38600 

C 

70 

JMP 

Rl 

0060 

010202 

71 

HANDOP : 

LXI 

B/202H 

006E 

C38600 

C 

72 

JMP 

Rl 

007  1 

010203 

73 

HANDCL : 

LXI 

B/302H 

0074 

C306OO 

C 

74 

JMP 

Rl 

0077 

010300 

75 

XTENDJ 

LXI 

8/3 

007A 

C38600 

c 

76 

JMP 

Rl 

77 

0070 

3AOOOO 

E 

78 

RELYGO : 

LDA 

DIRFLG 

0080 

E6FF 

79 

ANI 

OFFH  JSET  ZERO  FLAG 

0082 

CA8600 

c 

80 

JZ 

Rl 

81 

1 CHANGE 

FROM 

UP  (LEFT)  TO  DOWN  (RIGHT)  : 

0085 

04 

82 

INR 

B 

0086 

78 

83 

Rl: 

MOV 

ft?  B 

0087 

320100 

E 

84 

STA 

RELAY1+1  J SELECT  FUNCTION 

008A 

C5 

85 

PUSH 

B 

008B 

01D007 

86 

LXI 

B/2000 

008E 

CDOOOO 

E 

87 

CALL 

WAIT  JWAIT  .1  SEC 

009 1 

Cl 

88 

POP 

B 

0092 

79 

89 

MOV 

A/C 

0093 

320200 

E 

90 

STA 

RELAY1+2  JSTART  RELAY (S) 

0096 

CJ 

91 

POP 

B 

0097 

El 

92 

POP 

H 

0098 

C9 

93 

RET 

94 

95 

;*»***»*##***#*****«*#**#*»******#***#*#*#«***#« 

96 

0099 

3E00 

97 

RSTOP : 

MV  I 

A»0 

00?  B 

320200 

E 

98 

STA 

RELAY1+2 

009E 

C9 

99 

RET 

100 

101. 

END 

PUBLIC 

SYMBOLS 

RSTART 

C  0000 

R 

STOP 

C  0099 

EXTERNAL  SYMBOLS 

LJRFLG  F.  0000  ERROR  E  0000  PRADD  E  0000  RELAY  1  E  0000 
WAIT  E  0000 
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ISIS-II  8080/8081;  MACRO  ASSEMBLER/  V4.0 


RELAYW  PAGE 


3 


USER  SYMBOLS 
BIRFLG  E  0000 
HANDCL  C  0071 
P2  C  005F 
RSTOP  C  0099 
WRISTL  C  OOSC 


ELBOWU  C  0047 
WANDQP  C  006B 
RELAY1  E  0000 
SHLDLR  C  0041 
MRISTR  C  0059 


ERROR  E  0000 
PRADD  E  0000 
RELYGO  C  007D 
SHLDUP  C  003B 
WRISTU  C  0053 


EXTND  C  00' n 
R1  C  008«. 
RSTART  C  0000 
WAIT  £  0000 
XTEND  C  0077 


ASSEMBLY  COMPLETE/  NO  ERRORS 
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ISIS- II  ASSEMBLER  SYMBOL  CROSS  REFERENCE/  02.1 


DIRFLG 

24 

66 

78 

ELBOWU 

37 

58* 

ERROR 

24 

52 

64 

EXTN1) 

39 

60' 

HANDCL 

49 

73* 

HANDOP 

47 

71* 

PRADD 

24 

30 

R1 

68 

70 

72 

74 

76 

80 

83* 

R2 

63 

66* 

RELAY! 

24 

84 

90 

98 

RELAYW 

1 

RF.LYGO 

35 

57 

59 

61 

78* 

RSTART 

23 

28* 

RS70P 

23 

97* 

SHLDLR 

35 

56* 

SHLBUP 

33 

34* 

WAIT 

24 

87 

HR I STL 

43 

65* 

NRISTR 

45 

64* 

WRISTU 

41 

62* 

XTEND 

51 

75* 

CROSS  REFERENCE  COMPLETE 
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ASM80  :F1  :  TRANS. ASY  XREF  PAQEMIDTH<72> 


ISIS- I I  8080/8085  MACRO  ASSEMBLER/  V4.0  TRANS  PAGE  1 


1.0C 

OBJ 

LINE 

SOURCE 

STATEMENT 

1 

NAME 

TRANS 

3 

/PROGRAMMER: 

C.MORRIN 

4 

1 VERSION  2.0 

5 

6 

1DATE  OF  LAST 

CHANGE:  NOVEMBER  4/  1977 

8 

9 

CSEG 

10 

11 

PUBLIC 

TRANSO 

12 

EXTRN 

OUTPUT / PRADD / TAD / DPRQGM 

13 

EXTRN 

ASCHEX / ASCHX1 /EXIT /PRG11B 

14 

EXTRN 

XMIT /PROMT /STOPFG 

15 

16 

17 

18 

1 OUTPUT  MESSAGE  TABLE: 

19 

OSEG 

20 

0000 

20235354 

21 

OTRANlt  OB 

•  tSTEPS-' 

0004 

4550533D 

0008 

20545241 

22 

0TRAN2 :  OB 

'  TRANSFER  FROM  ' 

OOOC 

4E534643 

0010 

52204652 

0014 

4F4D20 

23 

0008 

24 

LTRAN1  EQU 

8 

OOOF 

25 

LTRAN2  EQU 

15 

26 

27 

28 

29 

/PROGRAM  TRANSFER  ROUTINE  (CALLED  BY  PROGRM) 

30 

31 

/PROGRAM  TRANSFER  MODE: 

0017 

3EF1 

32 

TRANSO:  MVI 

A/0F1H 

0019 

320100 

E 

33 

STA 

TAD*1 

00 1C 

210800 

D 

34 

LXI 

H/0TRAN2 

001F 

OEOF 

35 

MVI 

C/LTRAN2 

0021 

CDOOOO 

E 

36 

CALL 

OUTPUT  Z'  TRANSFER  FROM  ' 

0024 

212A00 

D 

37 

LXI 

H/TRANS1 

0027 

C 30000 

E 

38 

JMP 

EXIT 

39 

40 

41 

/PROGRAM  TRANSFER  MODE/  FIRST  ADDRESS  DIGIT 

002A 

FE2A 

42 

TRANS1 :  CPI 

002C 

CA3B00 

D 

43 

JZ 

TRANS2 

002F 

CDOOOO 

E 

44 

CALL 

ASCHX1 

0032 

320000 

E 

45 

STA 

TAD 

0035 

214400 

D 

46 

LXI 

H/TRANS3 

0038 

C30000 

E 

47 

JMP 

EXIT 

48 

49 

SO 

/PROGRAM  TRANSFER  MODE/  HARDWIRED  MEMORY 
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ISIS- I I  8080/8085  MACRO  ASSEMBLER/  04.0 


TRANS 


PAGE 


L.CIC 

OBJ 

LINE 

SOURCE  STATEMENT 

0038 

CDOOOO 

E 

51 

TRANS2J  CALL 

XMIT  )('*»') 

003F. 

21 8400 

1) 

52 

LXI 

H/TRANS5 

0041 

C30000 

E 

53 

JMP 

EXIT 

54 

55 

j  +++++++++++++++++++++ 

56 

; PROGRAM  TRANSFER  MODE;  2ND  ADDRESS  DIGIT 

0044 

CDOOOO 

E 

57 

TRANS3 1  CALL 

ASCHEX 

0047 

210000 

E 

58 

LXI 

H/TAD 

004A 

B6 

59 

ORA 

M 

0048 

77 

60 

MOV 

M/A 

004C 

210000 

D 

61 

T3s  LXI 

H/0TRAN1 

004F 

0E08 

62 

MVI 

C/l.TRANl 

0051 

CDOOOO 

E 

63 

CALL 

OUTPUT  l»  #STEPS»' 

0054 

215A00 

D 

64 

LXI 

H/TRANS4 

0057 

C30000 

E 

65 

JMP 

EXIT 

66 

67 

68 

1 PROGRAM  TRANSFER  MODE/  «  OF  STEPS 

005A 

CDOOOO 

E 

69 

TRANS4I  CALL 

ASCHEX 

0058 

4  F 

70 

MOV 

C/A 

005E 

2A0000 

E 

71 

LHLD 

TAD 

0061 

EB 

72 

XCH6 

0062 

2A0000 

E 

73 

LHLD 

PRADD 

74 

/READY  TO  TRANSFER  PROGRAMS 

0065 

0604 

75 

TRAN2t  MVI 

B/4 

0067 

1A 

76 

TRAN1. :  LDAX 

D 

0068 

77 

77 

MOV 

M/A 

0069 

1.3 

78 

I  NX 

D 

006A 

23 

79 

I  NX 

H 

006B 

05 

80 

DCR 

B 

006C 

C26700 

D 

81 

JNZ 

TRAN1 

006F 

CDOOOO 

E 

82 

CALL 

DPR06M 

0072 

3A0000 

E 

83 

LDA 

STOPFG 

0075 

E6FF 

84 

ANI 

OFFH  JSET  ZERO  FLAG 

0077 

C20000 

E 

85 

JNZ 

PRG11B 

86 

1 RETURN  IF  LAST 

STEP  WAS  A  'STOP'  FLAG 

007A 

220000 

E 

87 

SHLD 

PRADD 

0078 

OD 

88 

DCR 

C 

007E 

C26500 

D 

89 

JNZ 

TRAN2 

0081 

C30000 

E 

90 

JMP 

PRG11B 

91 

92 

93 

1  HARDWIRED  MEMORY/  2ND  ADDRESS  DIGITS 

0084 

CDOOOO 

E 

94 

TRANSSt  CALL 

ASCHEX 

0087 

07 

93 

RLC 

0088 

5F 

96 

MOV 

E/A 

0089 

1.600 

97 

MVI 

D/0 

008B 

210000 

E 

98 

LXI 

H/ PROMT 

008E 

19 

99 

DAD 

D 

100 

) (REG  H>  -  POINTER  TO  HARDWIRED  PROGRAM 

008F 

7E 

101. 

MOV 

A/M 

0090 

320000 

E 

102 

STA 

TAD 

0093 

23 

1.03 

I  NX 

H 

0094 

7E 

104 

MOV 

A/M 
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TRAMS 


PAGE 


3 


LOC 

OBJ 

LINE 

SOURCE 

STATEMENT 

0095 

3201 00 

E 

105 

STA 

TAD+l 

0098 

C34C00 

D 

106 

JMP 

T3 

107 

108 

END 

PUBLIC  SYMBOLS 
TRANSO  0  0017 

EXTERNAL  SYMBOLS 

ASCHEX  E  0000  ASCHX1  E  0000  DPROOM  E  0000  EXIT  E  0000 

OUTPUT  E  0000  PRADD  E  0000  PRQ11B  E  0000  PROMT  E  0000 

STQPFQ  E  0000  TAD  E  0000  XMIT  E  0000 

USER  SYMBOLS 

ASCHEX  E  0000  ASCHX1  E  0000  DPROOM  E  0000  EXIT  E  0000 

LTRAN1  A  0008  LTRAN2  A  OOOF  0TRAN1  D  0000  0TRAN2  D  0008 

OUTPUT  E  0000  PRADD  E  0000  PR011B  E  0000  PROMT  E  0000 

STOPFG  E  0000  T3  D  004C  TAD  E  0000  TRAN1  D  0067 

TRAN2  D  0065  TRANSO  D  0017  TRANS 1  D  002A  TRANS2  D  003B 

TRANS3  D  0044  TRANS4  D  005A  TRANS5  D  0084  XMIT  E  0000 

ASSEMBLY  COMPLETE*  NO  ERRORS 
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ISIS-II  ASSEMBLER  SYMBOL  CROSS  REFERENCE;  V2.1 


ASCHEX 

13 

57 

69 

94 

ASCHX1 

13 

44 

DPRCIGM 

12 

02 

EXIT 

13 

38 

47 

53 

LTRAN1 

24* 

62 

LTRAN2 

25* 

35 

QTRAN1 

21* 

61 

0TRAN2 

22* 

34 

OUTPUT 

12 

36 

63 

PRADD 

12 

73 

87 

PRG1 IB 

13 

05 

90 

PROMT 

14 

98 

STOPFG 

14 

83 

T3 

61* 

106 

TAB 

12 

33 

45 

38 

TRAN1 

76* 

81 

TRAN2 

75* 

89 

TRANS 

1 

TRANSO 

11 

32* 

TRANS 1 

37 

42* 

TRANS2 

43 

31* 

TRANS3 

46 

57* 

TRANS4 

64 

69* 

TRANS5 

52 

94* 

XMIT 

14 

31 

CROSS  REFERENCE 

COMPLETE 

f 


102 
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APPENDIX  Ct  MODEL  OP  MANIPULATOR  PROGRAMMER  ACCURACY 


REQUIEM)  ACCURACY 


Level  1 :  Overall  system  accuracy  Is  assumed  to  be  a  circle  with  diameter 
0.5  inch. 

Level  2:  The  system  is  divided  into  five  functions,  each  of  which  has 
the  same  accuracy  expressed  in  percent.  The  contribution  of  each  function  to 
the  overall  system  accuracy  is  proportional  to  the  distance  between  the 
function's  sensor  and  the  work  area.  The  five  functions  are  shoulder  up/down 
(SU),  shoulder  left/right  (SL) ,  elbow  up/down  (EU) ,  wrist  up/down  (wu) ,  and 
wrist  left/right  (WL). 

Assume  that  the  distance  between  the  sensor  and  the  work  area  is  fixed  as 
follows: 

Shoulder  to  work  area  -  6  feet 
Elbow  to  work  area  ■  4  feet 
Wrist  to  work  area  -  2  feet 

Case  2A 

Assume  that  the  errors  are  Gaussian  and  independent.  Then  the  variance 
of  the  system  error  equals  the  sum  of  the  variance  of  the  subsystem  errors. 

system  error  «  l(SU  error)2  ♦  (SL  error)2  +  (EU  error)2  +  (WU  error)2 

+  (WL  error)2)  ^2. 

SU  error  ■  (6  feet)  (2n)  (270 V360 • )  x  channel  accuracy 
*  9  7i  feet  X  channel  accuracy 
■  2B.2  feet  X  channel  accuracy 

Similarly, 

SL  error  »  28.2  feet  X  channel  accuracy 

EU  error  ■  16.7  feet  X  channel  accuracy 

WU  error  -  8.4  feet  X  channel  accuracy 

WL  error  "  8.4  feet  X  channel  accuracy 

Bence  system  error  ■  0.5  inch  ■  600  inches  X  channel  accuracy.  Therefore, 
channel  accuracy  *  1  part  per  1200  ■  800  ppm.  Channel  accuracy  includes  both 
data  acquisition  errors  and  hydraulic  system  aonsistency. 

Case  2B 

Assume  that  the  errors  are  dependent .  For  example,  the  temperature- 
related  errors  will  probably  change  as  a  group. 
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2 

aystoa  error  *  [(SU  error  +  ku  error  +  WU  error)  +  (SL  error 
+  WL  error)2] 1/2. 

Since  movements  in  the  same  direction  are  correlated  (possibly  canceling  under 
sane  circumstances)/  orthogonal  movements  will  follow  the  Pythagorean  theorem. 

system  error  -  0.5  inch  -  710  inches  X  channel  accuracy. 

Hence  channel  accuracy  -  1  part  per  1420  parts  ”  700  ppm.  Note  that  the 
difference  between  independent  and  dependent  errors  is  small.  Channel 
accuracy  must  be  between  700  and  800  ppm. 

PRELIMINARY  ACCURACY  ANALYSIS  PREDICTED  ON  THE  BASIS  OP  THE  DESIGN 

The  data  acquisition  system  has  four  major  components: 

Sensor  (potentiometer) 

Multiplexer 

Precision  voltage  reference 
Analog-to-digital  converter 

Potentiometers 

The  potentiometers  are  used  as  voltage  dividers.  The  output  of  the 
potentiometers  is  connected  to  a  100-Mft  buffer  amplifier;  hence  the  current 
flowing  through  the  potentiometers  is  constant. 

The  potentiometer  should  not  be  sensitive  to  temperature  fluctuations, 
since  any  resistance  change  should  be  self-cancelling.  But  a  potential 
problem  with  the  potentiometers  is  a  flat  spot  —  where  the  resistance  does  not 
change.  It  is  hoped  that  the  solution  to  this  problem  is  to  use  conductive 
plastic  potentiometers  and  an  extremely  high  resolution  A/D  converter;  if  we 
can  measure  the  potentiometer  voltage  with  much  higher  resolution  than  the 
nominal  requirement,  then  it  may  be  possible  to  divide  the  flat  spots  into 
distinguishable  points. 

Multiplexer  Subsystem 

The  multiplexer  includes  two  levels  of  MOS  switches  and  two  levels  of 
instrumentation  amplifier  buffering.  The  switches  have  an  impedance  of  1  ki). 
The  large  changes  in  this  impedance  will  be  rendered  insignificant  by  the 
100-Mfl  input  resistance  of  the  instrumentation  amplifiers.  The  leakage 
currents  in  the  switches  will  not  impact  the  accuracy. 

The  instrumentation  amplifiers  have  an  input  and  output  offset,  which 
will  not  impact  accuracy  as  long  as  it  is  constant.  The  input  offset  tempera¬ 
ture  coefficient  is  10  j*V/*C,  and  the  output  offset  temperature  coefficient  is 
15  pV/*C.  Since  the  signal  is  20  V,  the  total  offset  temperature  coefficient 
is  1.25  ppm/*C.  A  specification  for  drift  was  not  available.  The  noise 
figure  is  20  pV,  or  1  ppm.  The  power  supply  provides  0.15%  regulation,  and 
the  amplifier  reduces  this  to  2.5  mV  of  noise  per  volt  of  ripple.  Since  the 
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The  voltage  reference  subsystem  contains  two  voltage  references  (4-10.000 
and  -10.000  V)  and  two  current  amplifiers.  (The  latter  were  required  for  the 
linkage  manipulator  pots  and  oould  be  removed  for  the  WSP  pots . ) 


The  voltage  references  have  a  temperature  coefficient  of  5  ppm  and  a 
drift  of  50  ppm  per  year.  Other  specs  include  a  noise  figure  of  5  ppm  and  a 
power-supply  ripple  of  4.5  ppm. 

The  current  amplifier  specs  have  not  been  calculated,  since  the  com¬ 
ponents  used  are  inexpensive  and  contain  few  specs.  The  current  amplifiers 
are  not  required  and  will  be  removed  if  they  are  suspect. 

Analog- to-Digital  Converter  Subsystem 


The  A/D  converter  has  a  temperature  coefficient  of  2.5  ppm/°C  and  a 
quantization  noise  figure  of  16  ppm. 

Susmuury  of  Noise  Sources 


Noise  Error , 
ppm 


Temp  Error i 
ppm 


Drift  Error, 
ppm/year 


Voltage  ref 

Temp  ooef 

Drift 

Noise 

Power  supply 

10 

9 

200  (20°) 

100  (max) 

Multiplexer 

Temp  ooef 

Power  supply 
Noise 

10 

2 

50  (20* ) 

A/D  converter 

Temp  ooef 
Quantisation 

16 

50  (20») 

Total 

21* 

300** 

100 

*  Square  root  of  ra 
**Siupla  sum,  since 

s  of  squares, 
temperature 

since  sources  are 
is  dependent. 

independent . 

The  predictable  system  errors  are  at  least  a  factor  of  2  better  than  the 
requirement.  This  analysis  did  not  include  noise  from  electromagnetic  radi¬ 
ation,  vfoich  was  the  predominant  source  of  noise  in  the  test.  Self-noise 
appeared  to  be  less  than  500  ppm. 

RBSUUTS  FROM  TESTING 

As  mentioned  under  test  results,  the  measured  accuracy  was  800  ppm 
(circle  of  0.5- inch  diameter).  This  was  attributed  to  an  additional  error 
source  —  electromagnetic  interference  from  the  low-pressure  hydraulic  pump. 
When  this  pump  was  off,  the  system  noise  was  less  than  200  ppm. 
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